home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1995 April / Internet Tools.iso / mail / mh / updates / MH.6.8.1.Z / MH.6.8.1
Encoding:
Text File  |  1993-08-19  |  169.8 KB  |  6,698 lines
  1. *** ../mh-6.8/Patchlevel    Tue Dec 15 08:52:42 1992
  2. --- Patchlevel    Thu Aug 19 16:46:19 1993
  3. ***************
  4. *** 1 ****
  5. ! MH.6.8 patch.0
  6. --- 1 ----
  7. ! MH.6.8 patch.1
  8. *** ../mh-6.8/papers/changes/mh-changes.ms    Tue Dec 15 08:54:32 1992
  9. --- papers/changes/mh-changes.ms    Fri Aug 20 10:11:06 1993
  10. ***************
  11. *** 1,2 ****
  12. ! .\" @(#)$Id: mh-changes.ms,v 1.25 1992/12/15 00:25:33 jromine Exp $
  13.   .\" Standard -ms macros
  14. --- 1,2 ----
  15. ! .\" @(#)$Id: mh-changes.ms,v 1.26 1993/08/20 17:11:02 jromine Exp $
  16.   .\" Standard -ms macros
  17. ***************
  18. *** 6,8 ****
  19.   .\" remember to update date in text below
  20. ! .DA "December 14, 1992"
  21.   .if n \{\
  22. --- 6,8 ----
  23.   .\" remember to update date in text below
  24. ! .DA "August 20, 1993"
  25.   .if n \{\
  26. ***************
  27. *** 30,31 ****
  28. --- 30,32 ----
  29.   Irvine, CA  92717\-3425
  30. + Bug-MH@ICS.UCI.EDU
  31.   .AB
  32. ***************
  33. *** 98,99 ****
  34. --- 99,161 ----
  35.   .KE
  36. + .ds LH Changes for MH 6.8.1
  37. + .bp
  38. + .SH
  39. + CHANGES FOR MH 6.8.1
  40. + .LP
  41. + The MH.6.8.1 patch release is a maintenance
  42. + release.
  43. + This is the current released version of \fIMH\fP
  44. + as of August 20, 1993.
  45. + .PP
  46. + This release includes a small number
  47. + of bug fixes, a few minor enhancements, some changes
  48. + for the new MIME standard, and support for ESMTP (RFC 1425).
  49. + Support for BSD 4.4 and 386BSD is planned for the next
  50. + release.
  51. + .PP
  52. + Many other fixes which have already been received
  53. + are still being merged.
  54. + If you've sent an update for MH 6.8 to \fBBug-MH@ics.uci.edu\fP
  55. + and it isn't in this release,
  56. + it'll probably appear in the next release.
  57. + .SH
  58. + Fixes and Enhancements
  59. + .LP
  60. + Many minor documentation corrections were made.
  61. + There are also a few program changes:
  62. + .IP mhn \w'post'u+2n
  63. + The `\-cache\0policy', `\-\[no\]check', and `\-\[no\]pause'
  64. + switches have been added.   Some other minor changes have
  65. + been made to comply with the new MIME standard.
  66. + See \fImhn\fP\|(1) for complete details.
  67. + .IP post 
  68. + When posting mail with SendMail, \fIpost\fP will
  69. + not use the \fBONEX\fP command when it is posting 
  70. + a message with BCCs.
  71. + .IP scan
  72. + \fIscan\fP will now work with big width values.
  73. + .SH 
  74. + Format Strings
  75. + .LP
  76. + One new function has been added:
  77. + .IP "%(profile arg)" \w'XXprofileXargX'u+2n
  78. + This function looks up a component in the 
  79. + \fB\&.mh\(ruprofile\fR or \fBcontext\fP files
  80. + and returns the value of that component.
  81. + .SH
  82. + Configuration
  83. + .LP
  84. + Two new configuration options are present:
  85. + .IP GCOS_HACK \w'NORUSERPASS'u+2n
  86. + The so-called \*(lqgcos\*(rq field of the password file is 
  87. + used as a last resort
  88. + to find the user's full name (see \fImh-profile\fP\|(5) for details).
  89. + Enable this option
  90. + if your \fIpasswd\fP\|(5) man page notes that the `&'
  91. + character in the \*(lqgcos\*(rq field stands for the login name.
  92. + .IP NORUSERPASS
  93. + Tells \fIMH\fR that your system doesn't have the
  94. + \fIruserpass\fP\|(3) routine;
  95. + \fIMH\fR will include its own copy of this
  96. + routine in its library.
  97.   .ds LH Changes for MH 6.8
  98. ***************
  99. *** 100,101 ****
  100. --- 162,164 ----
  101.   .bp
  102. + .ds CF December 14, 1992
  103.   .SH
  104. *** ../mh-6.8/conf/mh-gen.8    Tue Dec 15 08:53:15 1992
  105. --- conf/mh-gen.8    Fri Aug 20 12:48:02 1993
  106. ***************
  107. *** 1,2 ****
  108. ! .\" @(#)$Id: mh-gen.8,v 2.105 1992/12/14 17:19:19 jromine Exp $
  109.   .\" uneven inter-word spacing (nroff line adjusting) hampers readability
  110. --- 1,2 ----
  111. ! .\" @(#)$Id: mh-gen.8,v 2.111 1993/08/20 19:47:56 jromine Exp $
  112.   .\" uneven inter-word spacing (nroff line adjusting) hampers readability
  113. ***************
  114. *** 3,5 ****
  115.   .if n .na
  116. ! .TH MH-GEN 8 MH.6.8 [mh.6]
  117.   .SH NAME
  118. --- 3,5 ----
  119.   .if n .na
  120. ! .TH MH-GEN 8 MH.6.8.1 [mh.6]
  121.   .SH NAME
  122. ***************
  123. *** 194,195 ****
  124. --- 194,196 ----
  125.   or \*(lqstandard\*(rq to install manual entries under \fBman?/\fR,
  126. + or \*(lqbsd44\*(rq to install manual entries as \fBman?/\fIpage\fP.0\fR,
  127.   or \*(lqgen\*(rq to generate but not install them,
  128. ***************
  129. *** 196,197 ****
  130. --- 197,204 ----
  131.   or \*(lqnone\*(rq to neither generate nor install them.
  132. + 
  133. + Any of these values may have the suffix \*(lq/cat\*(rq appended 
  134. + to it.   In that case, the manual entries will be formatted
  135. + with \*(lqnroff -man\*(rq and they will be installed in the
  136. + corresponding \*(lqcat?\*(rq directories.
  137. + 
  138.   For example,
  139. ***************
  140. *** 199,200 ****
  141. --- 206,211 ----
  142.   use \*(lqstandard\*(rq and \fB/usr/man/u_man\fR for \*(lqmandir\*(rq.
  143. + To install formatted manual entires under \fB/usr/contrib/man/cat?\fR,
  144. + use \*(lqstandard/cat\*(rq and \fB/usr/contrib/man\fR for \*(lqmandir\*(rq.
  145. + To install formatted manual entries using the BSD44 convention,
  146. + use \*(lqbsd44/cat\*(rq.
  147.   
  148. ***************
  149. *** 648,650 ****
  150.   Use on Berkeley UNIX systems on or after 4.4BSD.
  151. ! This code is still under development.
  152.   
  153. --- 659,662 ----
  154.   Use on Berkeley UNIX systems on or after 4.4BSD.
  155. ! Also, be sure to use \*(lqoptions BSD43\*(rq
  156. ! and \*(lqoptions BSD42\*(rq.
  157.   
  158. ***************
  159. *** 664,665 ****
  160. --- 676,687 ----
  161.   
  162. + .ti -.5in
  163. + GCOS_HACK
  164. + .br
  165. + The so-called \*(lqgcos\*(rq field of the password file is 
  166. + used as a last resort
  167. + to find the user's full name (see \fImh-profile\fP\|(5) for details).
  168. + Enable this option
  169. + if your \fIpasswd\fP\|(5) man page notes that the `&'
  170. + character in the \*(lqgcos\*(rq field stands for the login name.
  171. + 
  172.   .ti -.5i
  173. ***************
  174. *** 725,727 ****
  175.   If you get an undefined symbol \*(lqruserpass\*(rq when compiling
  176. ! \fIMH\fP, you need this option.  If, however, you include this
  177.   option and get an undefined symbol \*(lq\(ru\^\(ruruserpass\*(rq
  178. --- 747,749 ----
  179.   If you get an undefined symbol \*(lqruserpass\*(rq when compiling
  180. ! \fIMH\fP, you probably need this option.  If, however, you include this
  181.   option and get an undefined symbol \*(lq\(ru\^\(ruruserpass\*(rq
  182. ***************
  183. *** 728,729 ****
  184. --- 750,752 ----
  185.   when compiling, then you should omit this option.
  186. + (See also `NORUSERPASS'.)
  187.   
  188. ***************
  189. *** 736,737 ****
  190. --- 759,769 ----
  191.   .ti -.5i
  192. + NORUSERPASS
  193. + .br
  194. + Tells \fIMH\fR that your system doesn't have the
  195. + \fIruserpass\fP\|(3) routine;
  196. + \fIMH\fR will include its own copy of this
  197. + routine in its library.
  198. + (See also `NFS'.)
  199. + 
  200. + .ti -.5i
  201.   NTOHLSWAP
  202. ***************
  203. *** 760,761 ****
  204. --- 792,804 ----
  205.   
  206. + .\" .ti -.5i
  207. + .\" SMTP_ONEX
  208. + .\" .br
  209. + .\" Causes \fIMH\fP to give the \*(lqONEX\*(rq SMTP command
  210. + .\" when posting mail (a SendMail performance hack).
  211. + .\" Useful only if you're running a SendMail
  212. + .\" which will successfully reset with the \*(lqRSET\*(rq command
  213. + .\" after seeing the \*(lqONEX\*(rq command;
  214. + .\" otherwise, if you enable this 
  215. + .\" you may have problems posting messages with \*(lqBCCs\*(rq.
  216. + .\" 
  217.   .ti -.5i
  218. *** ../mh-6.8/conf/mhconfig.c    Tue Dec 15 08:53:16 1992
  219. --- conf/mhconfig.c    Fri Aug 20 12:47:50 1993
  220. ***************
  221. *** 1,7 ****
  222.   /* mhconfig.c - configure MH */
  223.   /* cc [-DSYS5] mhconfig.c -o mhconfig */
  224.   #ifndef    lint
  225. ! static char ident[] = "@(#)$Id: mhconfig.c,v 2.63 1992/12/02 19:08:03 jromine Exp $";
  226.   #endif    /* lint */
  227.   
  228.   #include <ctype.h>
  229. --- 1,7 ----
  230.   /* mhconfig.c - configure MH */
  231.   /* cc [-DSYS5] mhconfig.c -o mhconfig */
  232.   #ifndef    lint
  233. ! static char ident[] = "@(#)$Id: mhconfig.c,v 2.69 1993/08/20 19:47:46 jromine Exp $";
  234.   #endif    /* lint */
  235.   
  236.   #include <ctype.h>
  237. ***************
  238. *** 29,35 ****
  239.   #define    MAKE        "../%s/Makefile"
  240.   
  241.   #define    WARNING    "This file is automatically generated.  Do not edit!"
  242. ! #define    MHRELEASE    "6.8"        /* for version: "Maj.min.pat" */
  243.   #define    MHCENTERFOOT    "MH.6.8"    /* for nroff page footers */
  244.   #define    MHLEFTFOOT    "[mh.6]"    /* [mh.6]    MH.6.6   page# */
  245.   #define    MHSLIBVER    "3.2"        /* SunOS4 shared library version */
  246. --- 29,35 ----
  247.   #define    MAKE        "../%s/Makefile"
  248.   
  249.   #define    WARNING    "This file is automatically generated.  Do not edit!"
  250. ! #define    MHRELEASE    "6.8.1"        /* for version: "Maj.min.pat" */
  251.   #define    MHCENTERFOOT    "MH.6.8"    /* for nroff page footers */
  252.   #define    MHLEFTFOOT    "[mh.6]"    /* [mh.6]    MH.6.6   page# */
  253.   #define    MHSLIBVER    "3.2"        /* SunOS4 shared library version */
  254. ***************
  255. *** 76,81 ****
  256. --- 76,82 ----
  257.   static char *mailpath = "/usr/spool/mail";
  258.   static char *maildir = NULL;
  259.   static char *mailfile = NULL;
  260. + static char *mancat = "man";
  261.   static char *mandir = "/usr/man";
  262.   static char *manuals = "standard";
  263.   static char *mf = "off";
  264. ***************
  265. *** 136,141 ****
  266. --- 137,143 ----
  267.       "MIME", 0,    /* multi-media extensions */
  268.       "MPOP", 0,    /* mobile pop */
  269.       "MSGID", 0, /* slocal dup surpression */
  270. +     "NORUSERPASS", 0, /* no ruserpass(3) */
  271.       "TMA", 0,    /* trusted mail */
  272.       "TTYD", 0,
  273.       "UCI", 0,
  274. ***************
  275. *** 336,355 ****
  276.       maildir ? maildir : "/usr/spool/mail");
  277.   
  278.       fprintf (fp, "s%%@(MHMANDIR)%%%s%%g\n", mandir);
  279.       if (strcmp (manuals, "standard") == 0 || strcmp (manuals, "gen") == 0)
  280.       for (i = 1; i <= 8; i++) {
  281. !         fprintf (fp, "s%%@(MHMANDIR%d)%%man%d%%g\n", i, i);
  282.           fprintf (fp, "s%%@(MHMANEXT%d)%%%d%%g\n", i, i);
  283.       }
  284.       else
  285.       for (i = 1; i <= 8; i++) {
  286. !         fprintf (fp, "s%%@(MHMANDIR%d)%%man%c%%g\n", i,
  287.               strcmp (manuals, "new") == 0 ? 'n'
  288.               : strcmp (manuals, "old") == 0 ? 'o'
  289.               : 'l');
  290.           fprintf (fp, "s%%@(MHMANEXT%d)%%%c%%g\n", i,
  291.               strcmp (manuals, "new") == 0 ? 'n'
  292.               : strcmp (manuals, "old") == 0 ? 'o'
  293.               : 'l');
  294.       }
  295.   
  296. --- 338,361 ----
  297.       maildir ? maildir : "/usr/spool/mail");
  298.   
  299.       fprintf (fp, "s%%@(MHMANDIR)%%%s%%g\n", mandir);
  300. +     fprintf (fp, "s%%@(MHCATMAN)%%%s%%g\n",
  301. +     strcmp(mancat, "cat") == 0 ? "| nroff -man" : "");
  302.       if (strcmp (manuals, "standard") == 0 || strcmp (manuals, "gen") == 0)
  303.       for (i = 1; i <= 8; i++) {
  304. !         fprintf (fp, "s%%@(MHMANDIR%d)%%%s%d%%g\n", i, mancat, i);
  305.           fprintf (fp, "s%%@(MHMANEXT%d)%%%d%%g\n", i, i);
  306.       }
  307.       else
  308.       for (i = 1; i <= 8; i++) {
  309. !         fprintf (fp, "s%%@(MHMANDIR%d)%%%s%c%%g\n", i, mancat,
  310.               strcmp (manuals, "new") == 0 ? 'n'
  311.               : strcmp (manuals, "old") == 0 ? 'o'
  312. +             : strcmp (manuals, "bsd44") == 0 ? i + '0'
  313.               : 'l');
  314.           fprintf (fp, "s%%@(MHMANEXT%d)%%%c%%g\n", i,
  315.               strcmp (manuals, "new") == 0 ? 'n'
  316.               : strcmp (manuals, "old") == 0 ? 'o'
  317. +             : strcmp (manuals, "bsd44") == 0 ? '0'
  318.               : 'l');
  319.       }
  320.   
  321. ***************
  322. *** 360,366 ****
  323.       else
  324.       fprintf (fp, "s%%@(MHHOSTVER)%%%s%%g\n", "");
  325.   
  326. !     if (strcmp (manuals, "gen") == 0 || strcmp (manuals, "gen") == 0)
  327.       fprintf (fp, "s%%@(MHMANGEN)%%%s%%g\n", "#"); /* comment char */
  328.       else
  329.       fprintf (fp, "s%%@(MHMANGEN)%%%s%%g\n", "");
  330. --- 366,372 ----
  331.       else
  332.       fprintf (fp, "s%%@(MHHOSTVER)%%%s%%g\n", "");
  333.   
  334. !     if (strcmp (manuals, "gen") == 0 || strcmp (manuals, "none") == 0)
  335.       fprintf (fp, "s%%@(MHMANGEN)%%%s%%g\n", "#"); /* comment char */
  336.       else
  337.       fprintf (fp, "s%%@(MHMANGEN)%%%s%%g\n", "");
  338. ***************
  339. *** 708,714 ****
  340. --- 714,727 ----
  341.       else
  342.       mailfile = mailpath;
  343.   
  344. +     if (cp = index (manuals, '/')) {    /* "standard/cat" */
  345. +     *cp++ = 0;
  346. +     mancat = cp;
  347. +     if (strcmp (mancat, "cat"))
  348. +         adios (NULLCP,"invalid manuals setting: %s/%s",manuals, mancat);
  349. +     }
  350.       if (strcmp (manuals, "standard")
  351. +         && strcmp (manuals, "bsd44")
  352.           && strcmp (manuals, "local")
  353.           && strcmp (manuals, "new")
  354.           && strcmp (manuals, "old")
  355. *** ../mh-6.8/conf/config/mts.c    Tue Dec 15 08:52:44 1992
  356. --- conf/config/mts.c    Fri Aug 20 09:14:02 1993
  357. ***************
  358. *** 1,6 ****
  359.   /* mts.c - definitions for the mail transport system */
  360.   #ifndef    lint
  361. ! static char ident[] = "@(#)$Id: mts.c,v 2.16 1992/11/24 18:40:34 jromine Exp $";
  362.   #endif /* lint */
  363.   
  364.   /* LINTLIBRARY */
  365. --- 1,6 ----
  366.   /* mts.c - definitions for the mail transport system */
  367.   #ifndef    lint
  368. ! static char ident[] = "@(#)$Id: mts.c,v 2.18 1993/08/19 23:36:12 jromine Exp $";
  369.   #endif /* lint */
  370.   
  371.   /* LINTLIBRARY */
  372. ***************
  373. *** 502,509 ****
  374. --- 502,522 ----
  375.       }
  376.   
  377.       np = pw -> pw_gecos;
  378. + #ifndef    GCOS_HACK
  379.       for (cp = fullname; *np && *np != (MMailids ? '<' : ','); *cp++ = *np++)
  380.       continue;
  381. + #else
  382. +     for (cp = fullname; *np && *np != (MMailids ? '<' : ','); )
  383. +     if (*np == '&')    {    /* blech! */
  384. +         (void) strcpy(cp, pw -> pw_name);
  385. +         *cp = toupper(*cp);
  386. +         while (*cp)
  387. +         cp++;
  388. +         np++;
  389. +     }
  390. +     else
  391. +         *cp++ = *np++;
  392. + #endif
  393.       *cp = '\0';
  394.       if (MMailids) {
  395.       if (*np)
  396. *** ../mh-6.8/conf/doc/folder.rf    Tue Dec 15 08:52:49 1992
  397. --- conf/doc/folder.rf    Thu Aug 19 14:20:57 1993
  398. ***************
  399. *** 1,3 ****
  400.   .\"    @(MHWARNING)
  401. ! .\" @(#)$Id: folder.rf,v 1.11 1992/10/29 21:50:27 jromine Exp $
  402.   .SC FOLDER 1
  403. --- 1,3 ----
  404.   .\"    @(MHWARNING)
  405. ! .\" @(#)$Id: folder.rf,v 1.12 1993/08/19 21:20:51 jromine Exp $
  406.   .SC FOLDER 1
  407. ***************
  408. *** 198,200 ****
  409.   .Bu
  410. ! `\-all' forces `\-header'.
  411.   .En
  412. --- 198,200 ----
  413.   .Bu
  414. ! `\-all' forces `\-header' and `\-total'.
  415.   .En
  416. *** ../mh-6.8/conf/doc/mark.rf    Tue Dec 15 08:52:50 1992
  417. --- conf/doc/mark.rf    Thu Aug 19 17:04:32 1993
  418. ***************
  419. *** 1,3 ****
  420.   .\"    @(MHWARNING)
  421. ! .\" @(#)$Id: mark.rf,v 1.7 1992/02/12 00:23:13 jromine Exp $
  422.   .SC MARK 1
  423. --- 1,3 ----
  424.   .\"    @(MHWARNING)
  425. ! .\" @(#)$Id: mark.rf,v 1.9 1993/08/20 00:04:30 jromine Exp $
  426.   .SC MARK 1
  427. ***************
  428. *** 83,87 ****
  429.   an alphabetic character followed by zero or more
  430. ! alphanumeric characters, and can not be one of the \*(lqreserved\*(rq
  431. ! message names
  432. ! (e.g., \*(lqfirst\*(rq, \*(lqcur\*(rq, and so forth).
  433.   
  434. --- 83,87 ----
  435.   an alphabetic character followed by zero or more
  436. ! alphanumeric characters, and cannot be one of the (reserved)
  437. ! message names \*(lqnew\*(rq, \*(lqfirst\*(rq,
  438. ! \*(lqlast\*(rq, \*(lqall\*(rq, \*(lqnext\*(rq, or \*(lqprev\*(rq.
  439.   
  440. *** ../mh-6.8/conf/doc/mh-chart.rf    Tue Dec 15 08:52:51 1992
  441. --- conf/doc/mh-chart.rf    Fri Aug 20 10:13:35 1993
  442. ***************
  443. *** 1,3 ****
  444.   .\"    @(MHWARNING)
  445. ! .\" @(#)$Id: mh-chart.rf,v 2.18 1992/11/11 17:34:01 jromine Exp $
  446.   .if '\*(ZZ'-man' \{\
  447. --- 1,3 ----
  448.   .\"    @(MHWARNING)
  449. ! .\" @(#)$Id: mh-chart.rf,v 2.19 1993/08/20 17:13:30 jromine Exp $
  450.   .if '\*(ZZ'-man' \{\
  451. ***************
  452. *** 240,242 ****
  453.   .br
  454. ! \%[\-list\0\%[\-header]\0\%[\-noheader]
  455.   .br
  456. --- 240,242 ----
  457.   .br
  458. ! \%[\-list\0\%[\-headers]\0\%[\-noheaders]
  459.   .br
  460. ***************
  461. *** 244,248 ****
  462.   .br
  463. ! \%[\-show\0\%[\-serialonly]\0\%[\-noserialonly]]
  464.   .br
  465. !        \%[\-form\0formfile]] \%[\-noshow]
  466.   .br
  467. --- 244,248 ----
  468.   .br
  469. ! \%[\-show\0\%[\-serialonly]\0\%[\-noserialonly]
  470.   .br
  471. !        \%[\-form\0formfile]\0\%[\-pause]\0\%[\-nopause]] \%[\-noshow]
  472.   .br
  473. ***************
  474. *** 250,255 ****
  475.   .br
  476. ! \%[\-verbose] \%[\-noverbose]
  477. ! \%[\-rfc934mode] \%[\-norfc934mode]
  478. ! \%[\-ebcdic] \%[\-noebcdicsafe]
  479. ! .br
  480.   \%[\-help]
  481. --- 250,256 ----
  482.   .br
  483. ! \%[\-cache\0policy]
  484. ! \%[\-check]\0\%[\-nocheck]
  485. ! \%[\-ebcdicsafe]\0\%[\-noebcdicsafe]
  486. ! \%[\-rfc934mode]\0\%[\-norfc934mode]
  487. ! \%[\-verbose]\0\%[\-noverbose]
  488.   \%[\-help]
  489. *** ../mh-6.8/conf/doc/mh-format.rf    Tue Dec 15 08:52:51 1992
  490. --- conf/doc/mh-format.rf    Thu Aug 19 13:26:27 1993
  491. ***************
  492. *** 1,3 ****
  493.   .\"    @(MHWARNING)
  494. ! .\" @(#)$Id: mh-format.rf,v 1.43 1992/12/02 18:41:50 jromine Exp $
  495.   .SC MH-FORMAT 5
  496. --- 1,3 ----
  497.   .\"    @(MHWARNING)
  498. ! .\" @(#)$Id: mh-format.rf,v 1.45 1993/08/19 20:26:17 jromine Exp $
  499.   .SC MH-FORMAT 5
  500. ***************
  501. *** 207,208 ****
  502. --- 207,209 ----
  503.   getenv     literal    string    Set \fIstr\fR to environment value of \fIarg\fR
  504. + profile    literal    string    Set \fIstr\fR to profile component \fIarg\fR value
  505.   .\" dat    literal    int    return value of dat[arg]
  506. *** ../mh-6.8/conf/doc/mh-profile.rf    Tue Dec 15 08:52:52 1992
  507. --- conf/doc/mh-profile.rf    Thu Aug 19 16:43:43 1993
  508. ***************
  509. *** 1,3 ****
  510.   .\"    @(MHWARNING)
  511. ! .\" @(#)$Id: mh-profile.rf,v 1.19 1992/12/02 22:13:41 jromine Exp $
  512.   .SC MH-PROFILE 5
  513. --- 1,3 ----
  514.   .\"    @(MHWARNING)
  515. ! .\" @(#)$Id: mh-profile.rf,v 1.20 1993/08/19 23:43:36 jromine Exp $
  516.   .SC MH-PROFILE 5
  517. ***************
  518. *** 220,223 ****
  519.   This is superceded by the \fBSIGNATURE\fR envariable.
  520. ! On hosts where \fIMH\fR was configured with the UCI option,
  521. ! if \fBSIGNATURE\fR is not set and this profile entry is not present,
  522.   the file $HOME/.signature is consulted.
  523. --- 220,225 ----
  524.   This is superceded by the \fBSIGNATURE\fR envariable.
  525. ! If \fBSIGNATURE\fR is not set and this profile entry is not present,
  526. ! the \*(lqgcos\*(rq field of the \fI/etc/passwd\fP file will be used;
  527. ! otherwise,
  528. ! on hosts where \fIMH\fR was configured with the UCI option,
  529.   the file $HOME/.signature is consulted.
  530. *** ../mh-6.8/conf/doc/mhn.rf    Tue Dec 15 08:52:54 1992
  531. --- conf/doc/mhn.rf    Fri Aug 20 08:42:21 1993
  532. ***************
  533. *** 1,3 ****
  534.   .\"    @(MHWARNING)
  535. ! .\" @(#)$Id: mhn.rf,v 1.8 1992/12/10 23:59:10 jromine Exp $
  536.   .SC MHN 1
  537. --- 1,3 ----
  538.   .\"    @(MHWARNING)
  539. ! .\" @(#)$Id: mhn.rf,v 1.9 1993/08/20 15:42:08 jromine Exp $
  540.   .SC MHN 1
  541. ***************
  542. *** 13,17 ****
  543.   .br
  544. ! \%[\-show\0\%[\-serialonly]\0\%[\-noserialonly]]
  545.   .br
  546. !        \%[\-form\0formfile]] \%[\-noshow]
  547.   .br
  548. --- 13,17 ----
  549.   .br
  550. ! \%[\-show\0\%[\-serialonly]\0\%[\-noserialonly]
  551.   .br
  552. !        \%[\-form\0formfile]\0\%[\-pause]\0\%[\-nopause]] \%[\-noshow]
  553.   .br
  554. ***************
  555. *** 19,24 ****
  556.   .br
  557. ! \%[\-verbose] \%[\-noverbose]
  558. ! \%[\-rfc934mode] \%[\-norfc934mode]
  559. ! \%[\-ebcdicsafe] \%[\-noebcdicsafe]
  560.   .br
  561.   \%[\-help]
  562. --- 19,30 ----
  563.   .br
  564. ! \%[\-cache\0policy]
  565.   .br
  566. + \%[\-check]\0\%[\-nocheck]
  567. + .br
  568. + \%[\-ebcdicsafe]\0\%[\-noebcdicsafe]
  569. + .br
  570. + \%[\-rfc934mode]\0\%[\-norfc934mode]
  571. + .br
  572. + \%[\-verbose]\0\%[\-noverbose]
  573. + .br
  574.   \%[\-help]
  575. ***************
  576. *** 64,66 ****
  577.   message    rfc822, partial, external-body
  578. ! application    octet-stream, oda, postscript
  579.   image    jpeg, gif, x-pbm, x-pgm, x-ppm, x-xwd
  580. --- 70,72 ----
  581.   message    rfc822, partial, external-body
  582. ! application    octet-stream, postscript
  583.   image    jpeg, gif, x-pbm, x-pgm, x-ppm, x-xwd
  584. ***************
  585. *** 90,91 ****
  586. --- 96,101 ----
  587.   
  588. + Each content may optionally have an integrity check associated with it.
  589. + If present and the `-check' switch is given,
  590. + then \fImhn\fR will attempt to verify the integrity of the content.
  591. + 
  592.   .Uh "Listing the Contents"
  593. ***************
  594. *** 136,137 ****
  595. --- 146,148 ----
  596.   that content.
  597. + (The p-escape can be disabled by specifying `\-nopause'.)
  598.   Further,
  599. ***************
  600. *** 444,445 ****
  601. --- 455,463 ----
  602.   
  603. + The caching behavior of \fImhn\fR is controlled with the `\-cache' switch.
  604. + One of three arguments may be specified:
  605. + always, indicating that \fImhn\fR should make use of caching whenever possible;
  606. + ask, indicating that \fImhn\fR should ask the user;
  607. + and,
  608. + never, indicating that \fImhn\fR should never make use of caching.
  609. + 
  610.   .Uh "Composing the Contents"
  611. ***************
  612. *** 625,630 ****
  613.   name=    filename
  614. ! directory=    directoryname (optional)
  615.   site=    hostname
  616.   mode=    usually \fIascii\fR or \fIimage\fR (optional)
  617.   server=    mailbox
  618.   body=    command to send for retrieval
  619. --- 643,651 ----
  620.   name=    filename
  621. ! permission=    read-only or read-write
  622.   site=    hostname
  623. + directory=    directoryname (optional)
  624.   mode=    usually \fIascii\fR or \fIimage\fR (optional)
  625. + size=    number of octets
  626.   server=    mailbox
  627. + subject=    subject to send
  628.   body=    command to send for retrieval
  629. ***************
  630. *** 752,753 ****
  631. --- 773,777 ----
  632.   
  633. + If the `-check' switch is given,
  634. + \fImhn\fR will associate an integrity check with each content.
  635. + 
  636.   .Uh "Automatic Composition"
  637. ***************
  638. *** 1002,1003 ****
  639. --- 1026,1031 ----
  640.   .Ds
  641. + `\-cache\0ask'
  642. + .Ds
  643. + `\-nocheck'
  644. + .Ds
  645.   `\-noebcdicsafe'
  646. ***************
  647. *** 1007,1008 ****
  648. --- 1035,1038 ----
  649.   `\-headers'
  650. + .Ds
  651. + `\-pause'
  652.   .Ds
  653. *** ../mh-6.8/conf/doc/refile.rf    Tue Dec 15 08:52:58 1992
  654. --- conf/doc/refile.rf    Fri Dec 18 16:21:04 1992
  655. ***************
  656. *** 1,3 ****
  657.   .\"    @(MHWARNING)
  658. ! .\" @(#)$Id: refile.rf,v 1.11 1992/02/10 20:27:30 jromine Exp $
  659.   .SC REFILE 1
  660. --- 1,3 ----
  661.   .\"    @(MHWARNING)
  662. ! .\" @(#)$Id: refile.rf,v 1.12 1992/12/19 00:20:58 jromine Exp $
  663.   .SC REFILE 1
  664. ***************
  665. *** 52,54 ****
  666.   then \fIrefile\fR will not ask any questions and will proceed as if
  667. ! the user's answer was \*(lqyes\*(rq for all questions.
  668.   
  669. --- 52,54 ----
  670.   then \fIrefile\fR will not ask any questions and will proceed as if
  671. ! the user answered \*(lqyes\*(rq to all questions.
  672.   
  673. *** ../mh-6.8/conf/doc/scan.rf    Tue Dec 15 08:52:59 1992
  674. --- conf/doc/scan.rf    Thu Aug 19 13:43:29 1993
  675. ***************
  676. *** 1,3 ****
  677.   .\"    @(MHWARNING)
  678. ! .\" @(#)$Id: scan.rf,v 1.11 1992/10/29 22:01:56 jromine Exp $
  679.   .SC SCAN 1
  680. --- 1,3 ----
  681.   .\"    @(MHWARNING)
  682. ! .\" @(#)$Id: scan.rf,v 1.12 1993/08/19 20:43:27 jromine Exp $
  683.   .SC SCAN 1
  684. ***************
  685. *** 81,83 ****
  686.   To override the output format used by \fIscan\fR,
  687. ! the `\-format\ string' or `\-format\ file' switches are used.
  688.   This permits individual fields of the scan listing to be extracted with ease.
  689. --- 81,83 ----
  690.   To override the output format used by \fIscan\fR,
  691. ! the `\-format\ string' or `\-form\ file' switches are used.
  692.   This permits individual fields of the scan listing to be extracted with ease.
  693. *** ../mh-6.8/conf/examples/README    Tue Dec 15 08:53:03 1992
  694. --- conf/examples/README    Fri Feb 26 14:17:27 1993
  695. ***************
  696. *** 1,2 ****
  697. ! $Id: README,v 1.8 1992/12/14 18:12:18 jromine Exp $
  698.   These files are contributed MH config files from various sites.
  699. --- 1,2 ----
  700. ! $Id: README,v 1.8 1992/12/14 18:12:18 jromine Exp jromine $
  701.   These files are contributed MH config files from various sites.
  702. ***************
  703. *** 5,6 ****
  704. --- 5,7 ----
  705.   
  706. + # 386bsd        - MH 6.8, 386BSD system running SendMail
  707.   # aix.sap-ag.de    - MH 6.8 options for AIX (AIX 3.2 on RS/6000 350).
  708. ***************
  709. *** 10,11 ****
  710. --- 11,13 ----
  711.   # bsd43.uiuc.edu - MH 6.8 VAX running 4.3 BSD-reno
  712. + # bsd44.berkeley.edu - MH 6.8, 4.4BSD system running SendMail
  713.   # convex.uiuc.edu - MH 6.8 Convex C240 running ConvexOS v9.1
  714. *** ../mh-6.8/conf/makefiles/doc    Tue Dec 15 08:53:11 1992
  715. --- conf/makefiles/doc    Thu Jun  3 10:43:42 1993
  716. ***************
  717. *** 4,6 ****
  718.   #    @(MHWARNING)
  719. ! # @(#)$Id: doc,v 2.24 1992/10/28 17:01:04 jromine Exp $
  720.   ##############################################################################
  721. --- 4,6 ----
  722.   #    @(MHWARNING)
  723. ! # @(#)$Id: doc,v 2.25 1993/06/03 17:43:20 jromine Exp $
  724.   ##############################################################################
  725. ***************
  726. *** 134,136 ****
  727.   
  728. ! .me.man:;    cat tmac.me $< | sed -f me2man.sed > $@
  729.   
  730. --- 134,136 ----
  731.   
  732. ! .me.man:;    cat tmac.me $< | sed -f me2man.sed @(MHCATMAN) > $@
  733.   
  734. *** ../mh-6.8/conf/makefiles/sbr    Tue Dec 15 08:53:12 1992
  735. --- conf/makefiles/sbr    Fri Feb 26 11:01:32 1993
  736. ***************
  737. *** 4,6 ****
  738.   #    @(MHWARNING)
  739. ! # @(#)$Id: sbr,v 2.19 1992/11/12 22:47:24 jromine Exp $
  740.   ##############################################################################
  741. --- 4,6 ----
  742.   #    @(MHWARNING)
  743. ! # @(#)$Id: sbr,v 2.21 1993/02/26 19:01:31 jromine Exp $
  744.   ##############################################################################
  745. ***************
  746. *** 30,32 ****
  747.   SLIBVER    =    @(SLIBVER)
  748. ! SLIBDIR =    @(SLIBDIR)
  749.   SLFLAGS=    @(SLFLAGS)
  750. --- 30,32 ----
  751.   SLIBVER    =    @(SLIBVER)
  752. ! SLIBDIR =    $(DESTDIR)@(SLIBDIR)
  753.   SLFLAGS=    @(SLFLAGS)
  754. ***************
  755. *** 48,49 ****
  756. --- 48,52 ----
  757.           printsw.c push.c putenv.c pwd.c refile.c remdir.c r1bindex.c \
  758. + @BEGIN: NORUSERPASS
  759. +         ruserpass.c \
  760. + @END: NORUSERPASS
  761.           showfile.c smatch.c sprintb.c ssequal.c strindex.c trimcpy.c \
  762. ***************
  763. *** 64,65 ****
  764. --- 67,71 ----
  765.           printsw.o push.o putenv.o pwd.o refile.o remdir.o r1bindex.o \
  766. + @BEGIN: NORUSERPASS
  767. +         ruserpass.o \
  768. + @END: NORUSERPASS
  769.           showfile.o smatch.o sprintb.o ssequal.o strindex.o trimcpy.o \
  770. *** ../mh-6.8/conf/makefiles/support/general    Tue Dec 15 08:53:13 1992
  771. --- conf/makefiles/support/general    Fri Aug 20 08:56:28 1993
  772. ***************
  773. *** 4,6 ****
  774.   #    @(MHWARNING)
  775. ! # @(#)$Id: general,v 1.18 1992/10/28 18:56:06 jromine Exp $
  776.   ##############################################################################
  777. --- 4,6 ----
  778.   #    @(MHWARNING)
  779. ! # @(#)$Id: general,v 1.19 1993/08/20 15:56:25 jromine Exp $
  780.   ##############################################################################
  781. ***************
  782. *** 280,282 ****
  783.   $(ETCDIR)/mhn_defaults:    true
  784. !         -if [ ! -f $@ ]; then \
  785.               ./bootmhn.sh $(ETCDIR); \
  786. --- 280,282 ----
  787.   $(ETCDIR)/mhn_defaults:    true
  788. !         -@if [ ! -f $@ ]; then \
  789.               ./bootmhn.sh $(ETCDIR); \
  790. *** ../mh-6.8/conf/makefiles/uip    Tue Dec 15 08:53:14 1992
  791. --- conf/makefiles/uip    Fri Dec 18 09:57:59 1992
  792. ***************
  793. *** 4,6 ****
  794.   #    @(MHWARNING)
  795. ! # @(#)$Id: uip,v 2.38 1992/11/18 16:54:29 jromine Exp $
  796.   ##############################################################################
  797. --- 4,6 ----
  798.   #    @(MHWARNING)
  799. ! # @(#)$Id: uip,v 2.39 1992/12/18 17:57:45 jromine Exp $
  800.   ##############################################################################
  801. ***************
  802. *** 86,87 ****
  803. --- 86,88 ----
  804.   @END: KPOP
  805. + @END: POP
  806.   @BEGIN: BPOP
  807. ***************
  808. *** 94,96 ****
  809.   @END: NNTP
  810. - @END: POP
  811.   @BEGIN: HESIOD
  812. --- 95,96 ----
  813. *** ../mh-6.8/conf/makefiles/zotnet/mts    Tue Dec 15 08:53:15 1992
  814. --- conf/makefiles/zotnet/mts    Fri Aug 20 08:56:17 1993
  815. ***************
  816. *** 4,6 ****
  817.   #    @(MHWARNING)
  818. ! # @(#)$Id: mts,v 1.8 1992/02/06 17:29:00 jromine Exp $
  819.   ##############################################################################
  820. --- 4,6 ----
  821.   #    @(MHWARNING)
  822. ! # @(#)$Id: mts,v 1.9 1993/08/20 15:56:12 jromine Exp $
  823.   ##############################################################################
  824. ***************
  825. *** 94,96 ****
  826.   $(ETCDIR)/mtstailor:    mtstailor
  827. !         -if [ ! -f $@ ]; then \
  828.               $(REMOVE) $@ zmtstailor; \
  829. --- 94,96 ----
  830.   $(ETCDIR)/mtstailor:    mtstailor
  831. !         -@if [ ! -f $@ ]; then \
  832.               $(REMOVE) $@ zmtstailor; \
  833. *** ../mh-6.8/conf/makefiles/zotnet/tws    Tue Dec 15 08:53:15 1992
  834. --- conf/makefiles/zotnet/tws    Fri Feb 26 13:51:04 1993
  835. ***************
  836. *** 4,6 ****
  837.   #    @(MHWARNING)
  838. ! # @(#)$Id: tws,v 1.15 1992/11/18 16:54:16 jromine Exp $
  839.   ##############################################################################
  840. --- 4,6 ----
  841.   #    @(MHWARNING)
  842. ! # @(#)$Id: tws,v 1.16 1993/02/26 21:50:51 jromine Exp $
  843.   ##############################################################################
  844. ***************
  845. *** 73,74 ****
  846. --- 73,76 ----
  847.           $(LEX) dtimep.lex | sed -f lexedit.sed > dtimep.c
  848. +         len=`wc -l dtimep.c | awk ' { print $$1 } '`; \
  849. +             if [ $$len -eq 1 ]; then cp dtimep.c-lexed dtimep.c; fi
  850.   
  851. *** ../mh-6.8/h/fmtcompile.h    Tue Dec 15 08:53:20 1992
  852. --- h/fmtcompile.h    Fri Jun 11 23:46:32 1993
  853. ***************
  854. *** 1,4 ****
  855. ! /* @(#)$Id: fmtcompile.h,v 1.9 1992/02/09 07:12:48 jromine Exp $ */
  856.   
  857.   /* Format Types */
  858.   /* -------------*/
  859. --- 1,4 ----
  860. ! /* @(#)$Id: fmtcompile.h,v 1.10 1993/06/12 06:46:16 jromine Exp $ */
  861.   
  862.   /* Format Types */
  863.   /* -------------*/
  864. ***************
  865. *** 20,104 ****
  866.   #define FT_LS_COMP    12    /* set "str" to component text */
  867.   #define FT_LS_LIT    13    /* set "str" to literal text */
  868.   #define FT_LS_GETENV    14    /* set "str" to getenv(text) */
  869. ! #define FT_LS_TRIM    15    /* trim trailing white space from "str" */
  870. ! #define FT_LV_COMP    16    /* set "value" to comp (as dec. num) */
  871. ! #define FT_LV_COMPFLAG    17    /* set "value" to comp flag word */
  872. ! #define FT_LV_LIT    18    /* set "value" to literal num */
  873. ! #define FT_LV_DAT    19    /* set "value" to dat[n] */
  874. ! #define FT_LV_STRLEN    20    /* set "value" to length of "str" */
  875. ! #define FT_LV_PLUS_L    21    /* set "value" += literal */
  876. ! #define FT_LV_MINUS_L    22    /* set "value" -= literal */
  877. ! #define FT_LV_DIVIDE_L    23    /* set "value" to value / literal */
  878. ! #define    FT_LV_MODULO_L    24    /* set "value" to value % literal */
  879. ! #define FT_LV_CHAR_LEFT 25      /* set "value" to char left in output */
  880.   
  881. ! #define FT_LS_MONTH     26      /* set "str" to tws month */
  882. ! #define FT_LS_LMONTH    27      /* set "str" to long tws month */
  883. ! #define FT_LS_ZONE      28      /* set "str" to tws timezone */
  884. ! #define FT_LS_DAY       29      /* set "str" to tws weekday */
  885. ! #define FT_LS_WEEKDAY   30      /* set "str" to long tws weekday */
  886. ! #define FT_LS_822DATE   31      /* set "str" to 822 date str */
  887. ! #define FT_LS_PRETTY    32      /* set "str" to pretty (?) date str */
  888. ! #define FT_LV_SEC       33      /* set "value" to tws second */
  889. ! #define FT_LV_MIN       34      /* set "value" to tws minute */
  890. ! #define FT_LV_HOUR      35      /* set "value" to tws hour */
  891. ! #define FT_LV_MDAY      36      /* set "value" to tws day of month */
  892. ! #define FT_LV_MON       37      /* set "value" to tws month */
  893. ! #define FT_LV_YEAR      38      /* set "value" to tws year */
  894. ! #define FT_LV_YDAY      39      /* set "value" to tws day of year */
  895. ! #define FT_LV_WDAY      40      /* set "value" to tws weekday */
  896. ! #define FT_LV_ZONE      41      /* set "value" to tws timezone */
  897. ! #define FT_LV_CLOCK     42      /* set "value" to tws clock */
  898. ! #define FT_LV_RCLOCK    43      /* set "value" to now - tws clock */
  899. ! #define FT_LV_DAYF      44      /* set "value" to tws day flag */
  900. ! #define FT_LV_DST       45      /* set "value" to tws daylight savings flag */
  901. ! #define FT_LV_ZONEF     46      /* set "value" to tws timezone flag */
  902.   
  903. ! #define FT_LS_PERS      47      /* set "str" to person part of addr */
  904. ! #define FT_LS_MBOX      48      /* set "str" to mbox part of addr */
  905. ! #define FT_LS_HOST      49      /* set "str" to host part of addr */
  906. ! #define FT_LS_PATH      50      /* set "str" to route part of addr */
  907. ! #define FT_LS_GNAME     51      /* set "str" to group part of addr */
  908. ! #define FT_LS_NOTE      52      /* set "str" to comment part of addr */
  909. ! #define FT_LS_ADDR      53      /* set "str" to mbox@host */
  910. ! #define FT_LS_822ADDR   54      /* set "str" to 822 format addr */
  911. ! #define FT_LS_FRIENDLY  55      /* set "str" to "friendly" format addr */
  912. ! #define FT_LV_HOSTTYPE  56      /* set "value" to addr host type */
  913. ! #define FT_LV_INGRPF    57      /* set "value" to addr in-group flag */
  914. ! #define FT_LV_NOHOSTF   58      /* set "value" to addr no-host flag */
  915.   
  916.   /* Date Coercion */
  917. ! #define FT_LOCALDATE    59      /* Coerce date to local timezone */
  918. ! #define FT_GMTDATE      60      /* Coerce date to gmt */
  919.   
  920.   /* pre-format processing */
  921. ! #define FT_PARSEDATE    61      /* parse comp into a date (tws) struct */
  922. ! #define FT_PARSEADDR    62      /* parse comp into a mailaddr struct */
  923. ! #define FT_FORMATADDR   63      /* let external routine format addr */
  924. ! #define FT_MYMBOX       64      /* do "mymbox" test on comp */
  925.   
  926.   /* misc. */        /* ADDTOSEQ only works if you include "options LBL" */
  927. ! #define FT_ADDTOSEQ     65      /* add current msg to a sequence */
  928.   
  929.   /* conditionals & control flow (must be last) */
  930. ! #define FT_SAVESTR      66      /* save current str reg */
  931. ! #define FT_DONE         67      /* stop formatting */
  932. ! #define FT_PAUSE        68      /* pause */
  933. ! #define FT_NOP          69      /* nop */
  934. ! #define FT_GOTO         70      /* (relative) goto */
  935. ! #define FT_IF_S_NULL    71      /* test if "str" null */
  936. ! #define FT_IF_S         72      /* test if "str" non-null */
  937. ! #define FT_IF_V_EQ      73      /* test if "value" = literal */
  938. ! #define FT_IF_V_NE      74      /* test if "value" != literal */
  939. ! #define FT_IF_V_GT      75      /* test if "value" > literal */
  940. ! #define FT_IF_MATCH     76      /* test if "str" contains literal */
  941. ! #define FT_IF_AMATCH    77      /* test if "str" starts with literal */
  942. ! #define FT_S_NULL       78      /* V = 1 if "str" null */
  943. ! #define FT_S_NONNULL    79      /* V = 1 if "str" non-null */
  944. ! #define FT_V_EQ         80      /* V = 1 if "value" = literal */
  945. ! #define FT_V_NE         81      /* V = 1 if "value" != literal */
  946. ! #define FT_V_GT         82      /* V = 1 if "value" > literal */
  947. ! #define FT_V_MATCH      83      /* V = 1 if "str" contains literal */
  948. ! #define FT_V_AMATCH     84      /* V = 1 if "str" starts with literal */
  949.   
  950. ! #define IF_FUNCS FT_S_NULL      /* start of "if" functions */
  951. --- 20,105 ----
  952.   #define FT_LS_COMP    12    /* set "str" to component text */
  953.   #define FT_LS_LIT    13    /* set "str" to literal text */
  954.   #define FT_LS_GETENV    14    /* set "str" to getenv(text) */
  955. ! #define FT_LS_MFIND    15    /* set "str" to m_find(text) */
  956. ! #define FT_LS_TRIM    16    /* trim trailing white space from "str" */
  957. ! #define FT_LV_COMP    17    /* set "value" to comp (as dec. num) */
  958. ! #define FT_LV_COMPFLAG    18    /* set "value" to comp flag word */
  959. ! #define FT_LV_LIT    19    /* set "value" to literal num */
  960. ! #define FT_LV_DAT    20    /* set "value" to dat[n] */
  961. ! #define FT_LV_STRLEN    21    /* set "value" to length of "str" */
  962. ! #define FT_LV_PLUS_L    22    /* set "value" += literal */
  963. ! #define FT_LV_MINUS_L    23    /* set "value" -= literal */
  964. ! #define FT_LV_DIVIDE_L    24    /* set "value" to value / literal */
  965. ! #define FT_LV_MODULO_L    25    /* set "value" to value % literal */
  966. ! #define FT_LV_CHAR_LEFT 26    /* set "value" to char left in output */
  967.   
  968. ! #define FT_LS_MONTH    27    /* set "str" to tws month */
  969. ! #define FT_LS_LMONTH    28    /* set "str" to long tws month */
  970. ! #define FT_LS_ZONE    29    /* set "str" to tws timezone */
  971. ! #define FT_LS_DAY    30    /* set "str" to tws weekday */
  972. ! #define FT_LS_WEEKDAY    31    /* set "str" to long tws weekday */
  973. ! #define FT_LS_822DATE    32    /* set "str" to 822 date str */
  974. ! #define FT_LS_PRETTY    33    /* set "str" to pretty (?) date str */
  975. ! #define FT_LV_SEC    34    /* set "value" to tws second */
  976. ! #define FT_LV_MIN    35    /* set "value" to tws minute */
  977. ! #define FT_LV_HOUR    36    /* set "value" to tws hour */
  978. ! #define FT_LV_MDAY    37    /* set "value" to tws day of month */
  979. ! #define FT_LV_MON    38    /* set "value" to tws month */
  980. ! #define FT_LV_YEAR    39    /* set "value" to tws year */
  981. ! #define FT_LV_YDAY    40    /* set "value" to tws day of year */
  982. ! #define FT_LV_WDAY    41    /* set "value" to tws weekday */
  983. ! #define FT_LV_ZONE    42    /* set "value" to tws timezone */
  984. ! #define FT_LV_CLOCK    43    /* set "value" to tws clock */
  985. ! #define FT_LV_RCLOCK    44    /* set "value" to now - tws clock */
  986. ! #define FT_LV_DAYF    45    /* set "value" to tws day flag */
  987. ! #define FT_LV_DST    46    /* set "value" to tws daylight savings flag */
  988. ! #define FT_LV_ZONEF    47    /* set "value" to tws timezone flag */
  989.   
  990. ! #define FT_LS_PERS    48    /* set "str" to person part of addr */
  991. ! #define FT_LS_MBOX    49    /* set "str" to mbox part of addr */
  992. ! #define FT_LS_HOST    50    /* set "str" to host part of addr */
  993. ! #define FT_LS_PATH    51    /* set "str" to route part of addr */
  994. ! #define FT_LS_GNAME    52    /* set "str" to group part of addr */
  995. ! #define FT_LS_NOTE    53    /* set "str" to comment part of addr */
  996. ! #define FT_LS_ADDR    54    /* set "str" to mbox@host */
  997. ! #define FT_LS_822ADDR    55    /* set "str" to 822 format addr */
  998. ! #define FT_LS_FRIENDLY    56    /* set "str" to "friendly" format addr */
  999. ! #define FT_LV_HOSTTYPE    57    /* set "value" to addr host type */
  1000. ! #define FT_LV_INGRPF    58    /* set "value" to addr in-group flag */
  1001. ! #define FT_LV_NOHOSTF    59    /* set "value" to addr no-host flag */
  1002.   
  1003.   /* Date Coercion */
  1004. ! #define FT_LOCALDATE    60    /* Coerce date to local timezone */
  1005. ! #define FT_GMTDATE    61    /* Coerce date to gmt */
  1006.   
  1007.   /* pre-format processing */
  1008. ! #define FT_PARSEDATE    62    /* parse comp into a date (tws) struct */
  1009. ! #define FT_PARSEADDR    63    /* parse comp into a mailaddr struct */
  1010. ! #define FT_FORMATADDR    64    /* let external routine format addr */
  1011. ! #define FT_MYMBOX    65    /* do "mymbox" test on comp */
  1012.   
  1013.   /* misc. */        /* ADDTOSEQ only works if you include "options LBL" */
  1014. ! #define FT_ADDTOSEQ    66    /* add current msg to a sequence */
  1015.   
  1016.   /* conditionals & control flow (must be last) */
  1017. ! #define FT_SAVESTR    67    /* save current str reg */
  1018. ! #define FT_DONE        68    /* stop formatting */
  1019. ! #define FT_PAUSE    69    /* pause */
  1020. ! #define FT_NOP        70    /* nop */
  1021. ! #define FT_GOTO        71    /* (relative) goto */
  1022. ! #define FT_IF_S_NULL    72    /* test if "str" null */
  1023. ! #define FT_IF_S        73    /* test if "str" non-null */
  1024. ! #define FT_IF_V_EQ    74    /* test if "value" = literal */
  1025. ! #define FT_IF_V_NE    75    /* test if "value" != literal */
  1026. ! #define FT_IF_V_GT    76    /* test if "value" > literal */
  1027. ! #define FT_IF_MATCH    77    /* test if "str" contains literal */
  1028. ! #define FT_IF_AMATCH    78    /* test if "str" starts with literal */
  1029. ! #define FT_S_NULL    79    /* V = 1 if "str" null */
  1030. ! #define FT_S_NONNULL    80    /* V = 1 if "str" non-null */
  1031. ! #define FT_V_EQ        81    /* V = 1 if "value" = literal */
  1032. ! #define FT_V_NE        82    /* V = 1 if "value" != literal */
  1033. ! #define FT_V_GT        83    /* V = 1 if "value" > literal */
  1034. ! #define FT_V_MATCH    84    /* V = 1 if "str" contains literal */
  1035. ! #define FT_V_AMATCH    85    /* V = 1 if "str" starts with literal */
  1036.   
  1037. ! #define IF_FUNCS FT_S_NULL    /* start of "if" functions */
  1038. *** ../mh-6.8/h/mh.h    Tue Dec 15 08:53:21 1992
  1039. --- h/mh.h    Fri Feb 26 13:53:33 1993
  1040. ***************
  1041. *** 1,5 ****
  1042.   /* mh.h - main header file for all of MH */
  1043. ! /* @(#)$Id: mh.h,v 2.18 1992/12/14 17:10:43 jromine Exp $ */
  1044.   
  1045.   
  1046.   /* Well-used constants */
  1047. --- 1,5 ----
  1048.   /* mh.h - main header file for all of MH */
  1049. ! /* @(#)$Id: mh.h,v 2.19 1993/02/26 21:53:29 jromine Exp $ */
  1050.   
  1051.   
  1052.   /* Well-used constants */
  1053. ***************
  1054. *** 332,338 ****
  1055.   
  1056.   /* should be in <stdio.h> */
  1057.   
  1058. ! #if    !defined(SYS5) && !defined(ncr) && !defined(_AIX) && !defined(OSF1) && !defined(__convex__)
  1059.   typedef struct _iobuf  *FP;
  1060.   FP   popen ();
  1061.   #else /* SYS5 */
  1062. --- 332,338 ----
  1063.   
  1064.   /* should be in <stdio.h> */
  1065.   
  1066. ! #if    !defined(SYS5) && !defined(ncr) && !defined(_AIX) && !defined(OSF1) && !defined(__convex__) && !defined(__386BSD__) && !defined(BSD44)
  1067.   typedef struct _iobuf  *FP;
  1068.   FP   popen ();
  1069.   #else /* SYS5 */
  1070. *** ../mh-6.8/h/mhn.h    Tue Dec 15 08:53:22 1992
  1071. --- h/mhn.h    Fri Aug 20 08:43:47 1993
  1072. ***************
  1073. *** 1,5 ****
  1074.   /* mhn.h - definitions for mhn & friends */
  1075. ! /* @(#)$Id: mhn.h,v 1.2 1992/10/16 17:13:19 jromine Exp $ */
  1076.   
  1077.   #define    VRSN_FIELD    "MIME-Version"
  1078.   #define    VRSN_VALUE    "1.0"
  1079. --- 1,5 ----
  1080.   /* mhn.h - definitions for mhn & friends */
  1081. ! /* @(#)$Id: mhn.h,v 1.3 1993/08/20 15:43:43 jromine Exp $ */
  1082.   
  1083.   #define    VRSN_FIELD    "MIME-Version"
  1084.   #define    VRSN_VALUE    "1.0"
  1085. ***************
  1086. *** 13,18 ****
  1087. --- 13,20 ----
  1088.   #define    ID_FIELD    "Content-ID"
  1089.   
  1090.   #define    DESCR_FIELD    "Content-Description"
  1091. + 
  1092. + #define    MD5_FIELD    "Content-MD5"
  1093.   
  1094.   
  1095.   #define    isatom(c) \
  1096. *** ../mh-6.8/h/strings.h    Tue Dec 15 08:53:23 1992
  1097. --- h/strings.h    Fri Feb 26 13:54:05 1993
  1098. ***************
  1099. *** 1,5 ****
  1100.   /* strings.h - define standard string functions */
  1101. ! /* @(#)$Id: strings.h,v 1.18 1992/11/12 19:34:05 jromine Exp $ */
  1102.   
  1103.   #ifndef    _STRINGS        /* once-only... */
  1104.   #define    _STRINGS
  1105. --- 1,5 ----
  1106.   /* strings.h - define standard string functions */
  1107. ! /* @(#)$Id: strings.h,v 1.19 1993/02/26 21:54:00 jromine Exp $ */
  1108.   
  1109.   #ifndef    _STRINGS        /* once-only... */
  1110.   #define    _STRINGS
  1111. ***************
  1112. *** 25,31 ****
  1113.   #endif /* SYS5 */
  1114.   
  1115.   #if    defined(BSD42) || defined(SVR4)
  1116. ! #ifndef    SVR4
  1117.   #include <strings.h>
  1118.   #else
  1119.   #include <string.h>
  1120. --- 25,31 ----
  1121.   #endif /* SYS5 */
  1122.   
  1123.   #if    defined(BSD42) || defined(SVR4)
  1124. ! #if !defined(SVR4) && !defined(__386BSD__) && !defined(BSD44)
  1125.   #include <strings.h>
  1126.   #else
  1127.   #include <string.h>
  1128. ***************
  1129. *** 51,57 ****
  1130.   char   *strncpy ();
  1131.   #endif
  1132.   
  1133. ! #ifndef    SVR4
  1134.   char   *getenv ();
  1135.   char   *calloc (), *malloc (), *realloc ();
  1136.   #endif    /* SVR4 */
  1137. --- 51,57 ----
  1138.   char   *strncpy ();
  1139.   #endif
  1140.   
  1141. ! #if !defined(SVR4) && !defined(__386BSD__) && !defined(BSD44)
  1142.   char   *getenv ();
  1143.   char   *calloc (), *malloc (), *realloc ();
  1144.   #endif    /* SVR4 */
  1145. *** ../mh-6.8/mts/sendmail/smail.c    Tue Dec 15 08:54:27 1992
  1146. --- mts/sendmail/smail.c    Fri Aug 20 09:14:35 1993
  1147. ***************
  1148. *** 1,6 ****
  1149.   /* smail.c - MH interface to SendMail/SMTP */
  1150.   #ifndef    lint
  1151. ! static char ident[] = "@(#)$Id: smail.c,v 1.21 1992/11/09 18:19:32 jromine Exp $";
  1152.   #endif
  1153.   
  1154.   /* LINTLIBRARY */
  1155. --- 1,6 ----
  1156.   /* smail.c - MH interface to SendMail/SMTP */
  1157.   #ifndef    lint
  1158. ! static char ident[] = "@(#)$Id: smail.c,v 1.24 1993/08/20 16:14:30 jromine Exp $";
  1159.   #endif
  1160.   
  1161.   /* LINTLIBRARY */
  1162. ***************
  1163. *** 118,123 ****
  1164. --- 118,131 ----
  1165.   extern    char  **brkstring (), **copyip (), *getcpy ();
  1166.   #endif
  1167.   
  1168. + 
  1169. + static    int    doingEHLO;
  1170. + 
  1171. + #define    MAXEHLO    10
  1172. + char   *EHLOkeys[MAXEHLO + 1];
  1173. + 
  1174. + char   *EHLOset ();
  1175. + 
  1176.   /*   */
  1177.   
  1178.   #ifndef    SMTP
  1179. ***************
  1180. *** 124,135 ****
  1181.   
  1182.   /* ARGSUSED */
  1183.   
  1184. ! int     sm_init (client, server, watch, verbose, debug)
  1185. ! register char   *client;
  1186. ! char   *server;
  1187. ! register int     watch,
  1188. !               verbose,
  1189. !          debug;
  1190.   {
  1191.       register int    i,
  1192.                       result,
  1193. --- 132,145 ----
  1194.   
  1195.   /* ARGSUSED */
  1196.   
  1197. ! int     sm_init (client, server, watch, verbose, debug, onex, queued)
  1198. ! char   *client,
  1199. !        *server;
  1200. ! int    watch,
  1201. !     verbose,
  1202. !     debug,
  1203. !     onex,
  1204. !         queued;
  1205.   {
  1206.       register int    i,
  1207.                       result,
  1208. ***************
  1209. *** 148,153 ****
  1210. --- 158,164 ----
  1211.       sm_debug = debug;
  1212.       if (sm_rfp != NULL && sm_wfp != NULL)
  1213.       return RP_OK;
  1214. + 
  1215.   #ifdef ZMAILER
  1216.       if (client == NULL || *client == '\0')
  1217.       client = "localhost";
  1218. ***************
  1219. *** 185,191 ****
  1220.           vec[vecp++] = r1bindex (sendmail, '/');
  1221.           vec[vecp++] = "-bs";
  1222.   #ifndef ZMAILER
  1223. !         vec[vecp++] = watch ? "-odi" : "-odb";
  1224.           vec[vecp++] = "-oem";
  1225.           vec[vecp++] = "-om";
  1226.   #ifndef    RAND
  1227. --- 196,202 ----
  1228.           vec[vecp++] = r1bindex (sendmail, '/');
  1229.           vec[vecp++] = "-bs";
  1230.   #ifndef ZMAILER
  1231. !         vec[vecp++] = watch ? "-odi" : queued ? "-odq" : "-odb";
  1232.           vec[vecp++] = "-oem";
  1233.           vec[vecp++] = "-om";
  1234.   #ifndef    RAND
  1235. ***************
  1236. *** 227,246 ****
  1237.               (void) sm_end (NOTOK);
  1238.               return RP_RPLY;
  1239.           }
  1240. - #ifndef ZMAILER
  1241. -         (void) smtalk(SM_HELO, "ONEX");
  1242. - #endif /* not ZMAILER */
  1243. -         if (watch)
  1244. -         (void) smtalk(SM_HELO, "VERB on");
  1245. -         if (client && *client)
  1246. -         switch (smtalk (SM_HELO, "HELO %s", client)) {
  1247. -             case 250: 
  1248. -             break;
  1249.   
  1250. !             default: 
  1251.               (void) sm_end (NOTOK);
  1252.               return RP_RPLY;
  1253.           }
  1254.           return RP_OK;
  1255.       }
  1256.   }
  1257. --- 238,269 ----
  1258.               (void) sm_end (NOTOK);
  1259.               return RP_RPLY;
  1260.           }
  1261.   
  1262. !         if (client && *client) {
  1263. !         doingEHLO = 1;
  1264. !         result = smtalk (SM_HELO, "EHLO %s", client);
  1265. !         doingEHLO = 0;
  1266. ! 
  1267. !         if (500 <= result && result <= 599)
  1268. !             result = smtalk (SM_HELO, "HELO %s", client);
  1269. ! 
  1270. !         switch (result) {
  1271. !             case 250:
  1272. !                 break;
  1273. ! 
  1274. !             default:
  1275.               (void) sm_end (NOTOK);
  1276.               return RP_RPLY;
  1277.           }
  1278. +         }
  1279. + 
  1280. + #ifndef    ZMAILER
  1281. +         if (onex)
  1282. +         (void) smtalk (SM_HELO, "ONEX");
  1283. + #endif
  1284. +         if (watch)
  1285. +         (void) smtalk (SM_HELO, "VERB on");
  1286. + 
  1287.           return RP_OK;
  1288.       }
  1289.   }
  1290. ***************
  1291. *** 248,259 ****
  1292.   
  1293.   /*   */
  1294.   
  1295. ! int     sm_init (client, server, watch, verbose, debug)
  1296. ! register char   *client,
  1297. !             *server;
  1298. ! register int     watch,
  1299. !                verbose,
  1300. !          debug;
  1301.   {
  1302.       register int    result,
  1303.                       sd1,
  1304. --- 271,284 ----
  1305.   
  1306.   /*   */
  1307.   
  1308. ! int     sm_init (client, server, watch, verbose, debug, onex, queued)
  1309. ! char   *client,
  1310. !        *server;
  1311. ! int    watch,
  1312. !     verbose,
  1313. !     debug,
  1314. !     onex,
  1315. !     queued;
  1316.   {
  1317.       register int    result,
  1318.                       sd1,
  1319. ***************
  1320. *** 260,274 ****
  1321.                       sd2;
  1322.   
  1323.       if (watch)
  1324. ! #if defined(SUN40) && !defined(MMDFII)
  1325. !     debug = verbose = TRUE;
  1326. ! #else
  1327.       verbose = TRUE;
  1328.   #endif
  1329.       sm_verbose = verbose;
  1330.       sm_debug = debug;
  1331.       if (sm_rfp != NULL && sm_wfp != NULL)
  1332. !     return RP_OK;
  1333.   #ifdef ZMAILER
  1334.       if (client == NULL || *client == '\0')
  1335.       client = "localhost";
  1336. --- 285,304 ----
  1337.                       sd2;
  1338.   
  1339.       if (watch)
  1340. ! #if    !defined(SUN40) || defined(MMDFII)
  1341.       verbose = TRUE;
  1342. + #else    /* to show the transaction, -watch must imply -snoop */
  1343. +     debug = verbose = TRUE;
  1344.   #endif
  1345.       sm_verbose = verbose;
  1346.       sm_debug = debug;
  1347. + #ifdef    MPOP
  1348. +     if (sm_ispool)
  1349. +     goto all_done;
  1350. + #endif
  1351.       if (sm_rfp != NULL && sm_wfp != NULL)
  1352. !     goto send_options;
  1353. ! 
  1354.   #ifdef ZMAILER
  1355.       if (client == NULL || *client == '\0')
  1356.       client = "localhost";
  1357. ***************
  1358. *** 277,288 ****
  1359.       if (client == NULL || *client == 0)
  1360.       client = LocalName ();
  1361.   #endif
  1362. ! #endif    /* ZMAILER */
  1363.   
  1364. - #ifdef    MPOP
  1365. -     if (sm_ispool)
  1366. -     goto all_done;
  1367. - #endif
  1368.       if ((sd1 = rclient (server, "tcp", "smtp")) == NOTOK)
  1369.       return RP_BHST;
  1370.   #ifdef    MPOP
  1371. --- 307,314 ----
  1372.       if (client == NULL || *client == 0)
  1373.       client = LocalName ();
  1374.   #endif
  1375. ! #endif    /* not ZMAILER */
  1376.   
  1377.       if ((sd1 = rclient (server, "tcp", "smtp")) == NOTOK)
  1378.       return RP_BHST;
  1379.   #ifdef    MPOP
  1380. ***************
  1381. *** 330,344 ****
  1382.           (void) sm_end (NOTOK);
  1383.           return RP_RPLY;
  1384.       }
  1385. ! #if    !(defined(ZMAILER) || defined(MMDFII))
  1386. !     (void) smtalk(SM_HELO, "ONEX");
  1387. ! #endif /* not ZMAILER */
  1388. ! #ifndef    MMDFII
  1389. !     if (watch)
  1390. !     (void) smtalk(SM_HELO, "VERB on");
  1391. ! #endif
  1392. !     if (client && *client)
  1393. !     switch (smtalk (SM_HELO, "HELO %s", client)) {
  1394.           case 250: 
  1395.           break;
  1396.   
  1397. --- 356,371 ----
  1398.           (void) sm_end (NOTOK);
  1399.           return RP_RPLY;
  1400.       }
  1401. ! 
  1402. !     if (client && *client) {
  1403. !     doingEHLO = 1;
  1404. !     result = smtalk (SM_HELO, "EHLO %s", client);
  1405. !     doingEHLO = 0;
  1406. ! 
  1407. !     if (500 <= result && result <= 599)
  1408. !         result = smtalk (SM_HELO, "HELO %s", client);
  1409. ! 
  1410. !     switch (result) {
  1411.           case 250: 
  1412.           break;
  1413.   
  1414. ***************
  1415. *** 346,352 ****
  1416. --- 373,388 ----
  1417.           (void) sm_end (NOTOK);
  1418.           return RP_RPLY;
  1419.       }
  1420. +     }
  1421.   
  1422. + send_options: ;
  1423. +     if (watch && EHLOset ("XVRB"))
  1424. +     (void) smtalk (SM_HELO, "VERB on");
  1425. +     if (onex && EHLOset ("XONE"))
  1426. +     (void) smtalk (SM_HELO, "ONEX");
  1427. +     if (queued && EHLOset ("XQUE"))
  1428. +     (void) smtalk (SM_HELO, "QUED");
  1429. + 
  1430.       return RP_OK;
  1431.   }
  1432.   
  1433. ***************
  1434. *** 1201,1208 ****
  1435.       int     bc;
  1436.       register char  *bp,
  1437.                      *rp;
  1438. !     char    buffer[BUFSIZ];
  1439.   
  1440.   again: ;
  1441.   
  1442.       sm_reply.text[sm_reply.length = 0] = 0;
  1443. --- 1237,1260 ----
  1444.       int     bc;
  1445.       register char  *bp,
  1446.                      *rp;
  1447. !     char  **ehlo,
  1448. !         buffer[BUFSIZ];
  1449.   
  1450. +     if (doingEHLO) {
  1451. +     static    int    at_least_once = 0;
  1452. + 
  1453. +     if (at_least_once) {
  1454. +         char   *ep;
  1455. + 
  1456. +         for (ehlo = EHLOkeys; ep = *ehlo; ehlo++)
  1457. +         free (ep);
  1458. +     }
  1459. +     else
  1460. +         at_least_once = 1;
  1461. + 
  1462. +     *(ehlo = EHLOkeys) = NULL;
  1463. +     }
  1464. + 
  1465.   again: ;
  1466.   
  1467.       sm_reply.text[sm_reply.length = 0] = 0;
  1468. ***************
  1469. *** 1214,1219 ****
  1470. --- 1266,1291 ----
  1471.           (void) fflush (stdout);
  1472.       }
  1473.   
  1474. +     if (doingEHLO
  1475. +             && strncmp (buffer, "250", sizeof "250" - 1) == 0
  1476. +             && (buffer[3] == '-' || doingEHLO == 2)
  1477. +             && buffer[4]) {
  1478. +         if (doingEHLO == 2) {
  1479. +         int    len = strlen (buffer + 4);
  1480. + 
  1481. +         if (*ehlo = malloc ((unsigned) (strlen (buffer + 4) + 1))) {
  1482. +             (void) strcpy (*ehlo++, buffer + 4);
  1483. +             *ehlo = NULL;
  1484. +             if (ehlo >= EHLOkeys + MAXEHLO)
  1485. +             doingEHLO = 0;
  1486. +         }
  1487. +         else
  1488. +             doingEHLO = 0;
  1489. +         }
  1490. +         else
  1491. +         doingEHLO = 2;
  1492. +     }
  1493. + 
  1494.       for (; bc > 0 && (!isascii (*bp) || !isdigit (*bp)); bp++, bc--)
  1495.           continue;
  1496.   
  1497. ***************
  1498. *** 1261,1266 ****
  1499. --- 1333,1339 ----
  1500.       }
  1501.   
  1502.       sm_reply.length = rp - sm_reply.text;
  1503. + 
  1504.       return sm_reply.code;
  1505.       }
  1506.   
  1507. ***************
  1508. *** 1445,1447 ****
  1509. --- 1518,1539 ----
  1510.   }
  1511.   #endif
  1512.   #endif /* MPOP */
  1513. + 
  1514. + /*   */
  1515. + 
  1516. + char *EHLOset (s)
  1517. + char *s;
  1518. + {
  1519. +     int        len = strlen (s);
  1520. +     register char  *ep,
  1521. +          **ehlo;
  1522. + 
  1523. +     for (ehlo = EHLOkeys; ep = *ehlo; ehlo++)
  1524. +     if (strncmp (ep, s, len) == 0) {
  1525. +         for (ep += len; *ep == ' '; ep++)
  1526. +         continue;
  1527. +         return ep;
  1528. +     }
  1529. + 
  1530. +     return 0;
  1531. + }
  1532. *** ../mh-6.8/sbr/discard.c    Tue Dec 15 08:55:13 1992
  1533. --- sbr/discard.c    Fri Feb 26 13:56:13 1993
  1534. ***************
  1535. *** 1,10 ****
  1536.   /* discard.c - discard output on a file pointer */
  1537.   #ifndef    lint
  1538. ! static char ident[] = "@(#)$Id: discard.c,v 1.6 1992/12/15 00:20:22 jromine Exp $";
  1539.   #endif    /* lint */
  1540.   
  1541.   #include "../h/mh.h"
  1542.   #include <stdio.h>
  1543.   #ifndef    SYS5
  1544.   #include <sgtty.h>
  1545.   #else    /* SYS5 */
  1546. --- 1,13 ----
  1547.   /* discard.c - discard output on a file pointer */
  1548.   #ifndef    lint
  1549. ! static char ident[] = "@(#)$Id: discard.c,v 1.7 1993/02/26 21:56:04 jromine Exp $";
  1550.   #endif    /* lint */
  1551.   
  1552.   #include "../h/mh.h"
  1553.   #include <stdio.h>
  1554. + #ifdef POSIX
  1555. + #include <termios.h>
  1556. + #else
  1557.   #ifndef    SYS5
  1558.   #include <sgtty.h>
  1559.   #else    /* SYS5 */
  1560. ***************
  1561. *** 14,33 ****
  1562. --- 17,42 ----
  1563.   #include <sys/ioctl.h>
  1564.   #endif    /* NOIOCTLH */
  1565.   #endif    /* SYS5 */
  1566. + #endif    /* POSIX */
  1567.   
  1568.   
  1569.   void    discard (io)
  1570.   FILE   *io;
  1571.   {
  1572. + #ifndef POSIX
  1573.   #ifndef    SYS5
  1574.       struct sgttyb   sg;
  1575.   #else    /* SYS5 */
  1576.       struct termio   sg;
  1577.   #endif    /* SYS5 */
  1578. + #endif    /* POSIX */
  1579.   
  1580.       if (io == NULL)
  1581.       return;
  1582.   
  1583. + #ifdef POSIX
  1584. +     tcflush (fileno (io), TCOFLUSH);
  1585. + #else
  1586.   #ifndef    SYS5
  1587.       if (ioctl (fileno (io), TIOCGETP, (char *) &sg) != NOTOK)
  1588.       (void) ioctl (fileno (io), TIOCSETP, (char *) &sg);
  1589. ***************
  1590. *** 35,41 ****
  1591. --- 44,55 ----
  1592.       if (ioctl (fileno (io), TCGETA, &sg) != NOTOK)
  1593.       (void) ioctl (fileno (io), TCSETA, &sg);
  1594.   #endif    /* SYS5 */
  1595. + #endif    /* POSIX */
  1596.   
  1597. + #ifdef _FSTDIO
  1598. +     fpurge (io);
  1599. + #else
  1600.       if (io -> _ptr = io -> _base)
  1601.       io -> _cnt = 0;
  1602. + #endif
  1603.   }
  1604. *** ../mh-6.8/sbr/fmtcompile.c    Tue Dec 15 08:55:13 1992
  1605. --- sbr/fmtcompile.c    Thu Aug 19 14:05:48 1993
  1606. ***************
  1607. *** 1,6 ****
  1608.   /* fmtcompile.c - "compile" format strings for fmtscan */
  1609.   #ifndef    lint
  1610. ! static char ident[] = "@(#)$Id: fmtcompile.c,v 1.15 1992/12/15 00:20:22 jromine Exp $";
  1611.   #endif    /* lint */
  1612.   
  1613.   #include "../h/mh.h"
  1614. --- 1,6 ----
  1615.   /* fmtcompile.c - "compile" format strings for fmtscan */
  1616.   #ifndef    lint
  1617. ! static char ident[] = "@(#)$Id: fmtcompile.c,v 1.17 1993/08/19 21:05:42 jromine Exp $";
  1618.   #endif    /* lint */
  1619.   
  1620.   #include "../h/mh.h"
  1621. ***************
  1622. *** 64,69 ****
  1623. --- 64,70 ----
  1624.       "comp",    TF_COMP,    FT_LS_COMP,    0,        TFL_PUTS,
  1625.       "lit",    TF_STR,        FT_LS_LIT,    0,        TFL_PUTS,
  1626.       "getenv",    TF_STR,        FT_LS_GETENV,    0,        TFL_PUTS,
  1627. +     "profile",    TF_STR,        FT_LS_MFIND,    0,        TFL_PUTS,
  1628.       "trim",    TF_EXPR,    FT_LS_TRIM,    0,        0,
  1629.       "compval",    TF_COMP,    FT_LV_COMP,    0,        TFL_PUTN,
  1630.       "compflag",    TF_COMP,    FT_LV_COMPFLAG,    0,        TFL_PUTN,
  1631. ***************
  1632. *** 371,377 ****
  1633.       register int i;
  1634.       static int primed = 0;
  1635.   
  1636. !     while (isalnum(c = *cp++) || c == '-') 
  1637.       ;
  1638.       if (c != '}') {
  1639.       CERROR("'}' expected");
  1640. --- 372,378 ----
  1641.       register int i;
  1642.       static int primed = 0;
  1643.   
  1644. !     while (isalnum(c = *cp++) || c == '-' || c == '_')
  1645.       ;
  1646.       if (c != '}') {
  1647.       CERROR("'}' expected");
  1648. *** ../mh-6.8/sbr/formatsbr.c    Tue Dec 15 08:55:14 1992
  1649. --- sbr/formatsbr.c    Fri Aug 20 08:48:29 1993
  1650. ***************
  1651. *** 1,6 ****
  1652.   /* formatsbr.c - format string interpretation */
  1653.   #ifndef    lint
  1654. ! static char ident[] = "@(#)$Id: formatsbr.c,v 1.21 1992/12/15 00:20:22 jromine Exp $";
  1655.   #endif    /* lint */
  1656.   
  1657.   #include "../h/mh.h"
  1658. --- 1,6 ----
  1659.   /* formatsbr.c - format string interpretation */
  1660.   #ifndef    lint
  1661. ! static char ident[] = "@(#)$Id: formatsbr.c,v 1.24 1993/08/20 15:48:14 jromine Exp $";
  1662.   #endif    /* lint */
  1663.   
  1664.   #include "../h/mh.h"
  1665. ***************
  1666. *** 59,65 ****
  1667.       if ((formats = malloc ((unsigned) st.st_size + 1)) == NULLCP)
  1668.           adios (form, "unable to allocate space for format");
  1669.   
  1670. !     if (read (fileno(fp), formats, st.st_size) != st.st_size)
  1671.           adios (form, "error reading format file");
  1672.   
  1673.       formats[st.st_size] = '\0';
  1674. --- 59,65 ----
  1675.       if ((formats = malloc ((unsigned) st.st_size + 1)) == NULLCP)
  1676.           adios (form, "unable to allocate space for format");
  1677.   
  1678. !     if (read (fileno(fp), formats, (int) st.st_size) != st.st_size)
  1679.           adios (form, "error reading format file");
  1680.   
  1681.       formats[st.st_size] = '\0';
  1682. ***************
  1683. *** 304,310 ****
  1684.   
  1685.       if (get_x400_comp (mbox, "/PN=", buffer)) {
  1686.       for (mbox = buffer; mbox = index (mbox, '.'); )
  1687. !         *mbox++ = 0;
  1688.   
  1689.       return buffer;
  1690.       }
  1691. --- 304,310 ----
  1692.   
  1693.       if (get_x400_comp (mbox, "/PN=", buffer)) {
  1694.       for (mbox = buffer; mbox = index (mbox, '.'); )
  1695. !         *mbox++ = ' ';
  1696.   
  1697.       return buffer;
  1698.       }
  1699. ***************
  1700. *** 506,511 ****
  1701. --- 506,515 ----
  1702.           break;
  1703.       case FT_LS_GETENV:
  1704.           if (!(str = getenv (fmt->f_text)))
  1705. +         str = "";
  1706. +         break;
  1707. +     case FT_LS_MFIND:
  1708. +         if (!(str = m_find (fmt->f_text)))
  1709.           str = "";
  1710.           break;
  1711.       case FT_LS_TRIM:
  1712. *** ../mh-6.8/sbr/m_getfld.c    Tue Dec 15 08:55:18 1992
  1713. --- sbr/m_getfld.c    Fri Feb 26 13:57:19 1993
  1714. ***************
  1715. *** 1,6 ****
  1716.   /* m_getfld.c - read/parse a message */
  1717.   #ifndef    lint
  1718. ! static char ident[] = "@(#)$Id: m_getfld.c,v 1.14 1992/10/31 07:44:56 jromine Exp $";
  1719.   #endif /* lint */
  1720.   
  1721.   #include "../h/mh.h"
  1722. --- 1,6 ----
  1723.   /* m_getfld.c - read/parse a message */
  1724.   #ifndef    lint
  1725. ! static char ident[] = "@(#)$Id: m_getfld.c,v 1.15 1993/02/26 21:57:14 jromine Exp $";
  1726.   #endif /* lint */
  1727.   
  1728.   #include "../h/mh.h"
  1729. ***************
  1730. *** 170,175 ****
  1731. --- 170,181 ----
  1732.   static int  edelimlen;
  1733.   
  1734.   static int  (*eom_action) () = NULL;
  1735. + 
  1736. + #ifdef _FSTDIO
  1737. + #define    _ptr    _p        /* Gag */
  1738. + #define    _cnt    _r        /* Retch */
  1739. + #define    _filbuf    __srget        /* Puke */
  1740. + #endif
  1741.   
  1742.   /*   */
  1743.   
  1744. *** ../mh-6.8/sbr/pidstatus.c    Tue Dec 15 08:55:23 1992
  1745. --- sbr/pidstatus.c    Fri Feb 26 13:57:37 1993
  1746. ***************
  1747. *** 1,6 ****
  1748.   /* pidstatus.c - report child's status */
  1749.   #ifndef    lint
  1750. ! static char ident[] = "@(#)$Id: pidstatus.c,v 1.3 1992/12/15 00:20:22 jromine Exp $";
  1751.   #endif    /* lint */
  1752.   
  1753.   #include "../h/mh.h"
  1754. --- 1,6 ----
  1755.   /* pidstatus.c - report child's status */
  1756.   #ifndef    lint
  1757. ! static char ident[] = "@(#)$Id: pidstatus.c,v 1.4 1993/02/26 21:57:34 jromine Exp $";
  1758.   #endif    /* lint */
  1759.   
  1760.   #include "../h/mh.h"
  1761. ***************
  1762. *** 8,13 ****
  1763. --- 8,14 ----
  1764.   #include <stdio.h>
  1765.   
  1766.   
  1767. + #ifndef    BSD44
  1768.   #ifndef    BSD42
  1769.   static char *sigs[] = {
  1770.       NULL,
  1771. ***************
  1772. *** 45,50 ****
  1773. --- 46,52 ----
  1774.   #else
  1775.   extern  char *sys_siglist[];
  1776.   #endif    /* BSD42 */
  1777. + #endif    /* BSD44 defines sys_siglist in signal.h */
  1778.   
  1779.   /*   */
  1780.   
  1781. *** ../mh-6.8/support/general/bootmhn.sh    Tue Dec 15 08:55:37 1992
  1782. --- support/general/bootmhn.sh    Fri Aug 20 08:49:03 1993
  1783. ***************
  1784. *** 18,19 ****
  1785. --- 18,21 ----
  1786.   echo "mhn-store-text: %m%P.txt" >> $TMP
  1787. + echo "mhn-store-text/richtext: %m%P.rt" >> $TMP
  1788. + echo "mhn-store-video/mpeg: %m%P.mpg" >> $TMP
  1789.   echo "mhn-store-application/PostScript: %m%P.ps" >> $TMP
  1790. ***************
  1791. *** 68,72 ****
  1792.   mhn-store-audio/x-next: %m%P.au" >> $TMP
  1793.       echo "\
  1794. ! mhn-compose-audio/basic: ${AUDIODIR}record | ${AUDIODIR}raw2audio -F
  1795. ! mhn-show-audio/basic: %p${AUDIODIR}raw2audio 2>/dev/null | play" >> $TMP
  1796.   
  1797. --- 70,81 ----
  1798.   mhn-store-audio/x-next: %m%P.au" >> $TMP
  1799. +     AUDIOTOOL="`./bootmhn.findit audiotool $LIB`"
  1800. +     if [ ! -z "$AUDIOTOOL" ]; then
  1801. +         echo "\
  1802. + mhn-compose-audio/basic: $AUDIOTOOL %f && ${AUDIODIR}raw2audio -F < %f" >> $TMP
  1803. +     else
  1804. +         echo "\
  1805. + mhn-compose-audio/basic: trap \"exit 0\" 2 && ${AUDIODIR}record | ${AUDIODIR}raw2audio -F" >> $TMP
  1806. +     fi
  1807.       echo "\
  1808. ! mhn-show-audio/basic: %p${AUDIODIR}raw2audio 2>/dev/null | ${AUDIODIR}play" >> $TMP
  1809.   
  1810. ***************
  1811. *** 75,78 ****
  1812.           DIR="`echo $PGM | awk -F/ '{ for(i=2;i<NF;i++)printf "/%s", $i;}'`"/
  1813.           echo "\
  1814. - mhn-compose-audio/x-next: ${AUDIODIR}record | ${DIR}adpcm_enc
  1815.   mhn-show-audio/x-next: %p${DIR}adpcm_dec | ${AUDIODIR}play" >> $TMP
  1816. --- 84,93 ----
  1817.           DIR="`echo $PGM | awk -F/ '{ for(i=2;i<NF;i++)printf "/%s", $i;}'`"/
  1818. +         if [ ! -z "$AUDIOTOOL" ]; then
  1819. +         echo "\
  1820. + mhn-compose-audio/x-next: $AUDIOTOOL %f && ${DIR}adpcm_enc < %f" >> $TMP
  1821. +         else
  1822. +         echo "\
  1823. + mhn-compose-audio/x-next: ${AUDIODIR}record | ${DIR}adpcm_enc" >> $TMP
  1824. +         fi
  1825.           echo "\
  1826.   mhn-show-audio/x-next: %p${DIR}adpcm_dec | ${AUDIODIR}play" >> $TMP
  1827. ***************
  1828. *** 79,82 ****
  1829.       else
  1830.           echo "\
  1831. - mhn-compose-audio/x-next: ${AUDIODIR}record
  1832.   mhn-show-audio/x-next: %p${AUDIODIR}play" >> $TMP
  1833. --- 94,103 ----
  1834.       else
  1835. +         if [ ! -z "$AUDIOTOOL" ]; then
  1836. +         echo "\
  1837. + mhn-compose-audio/x-next: $AUDIOTOOL %f" >> $TMP
  1838. +         else
  1839. +         echo "\
  1840. + mhn-compose-audio/x-next: ${AUDIODIR}record" >> $TMP
  1841. +         fi
  1842.           echo "\
  1843.   mhn-show-audio/x-next: %p${AUDIODIR}play" >> $TMP
  1844. ***************
  1845. *** 88,89 ****
  1846. --- 109,116 ----
  1847.       fi
  1848. + fi
  1849. + 
  1850. + PGM="`./bootmhn.findit mpeg_play $LIB`"
  1851. + if [ ! -z "$PGM" ]; then
  1852. +     echo "\
  1853. + mhn-show-video/mpeg: %p$PGM '%f'" >> $TMP
  1854.   fi
  1855. *** ../mh-6.8/support/general/viamail.sh    Tue Dec 15 08:55:40 1992
  1856. --- support/general/viamail.sh    Fri Aug 20 08:49:21 1993
  1857. ***************
  1858. *** 1,3 ****
  1859.   : run this script through /bin/sh
  1860. ! : '@(#)$Id: viamail.sh,v 1.2 1992/10/16 17:15:00 jromine Exp $'
  1861.   
  1862. --- 1,3 ----
  1863.   : run this script through /bin/sh
  1864. ! : '@(#)$Id: viamail.sh,v 1.4 1993/08/20 15:49:19 jromine Exp $'
  1865.   
  1866. ***************
  1867. *** 28,32 ****
  1868.   
  1869. ! tar cvf - $* | compress | \
  1870.       mhn -viamail "$mailpath" -viasubj "$subject" \
  1871. !     -viaparm "type=tar; conversions=x-compress" \
  1872.       -viacmnt "extract with uncompress | tar xvpf -" \
  1873. --- 28,32 ----
  1874.   
  1875. ! tar cvf - "$@" | compress | \
  1876.       mhn -viamail "$mailpath" -viasubj "$subject" \
  1877. !     -viaparm "type=tar; x-conversions=x-compress" \
  1878.       -viacmnt "extract with uncompress | tar xvpf -" \
  1879. *** ../mh-6.8/support/pop/popd.c    Tue Dec 15 08:55:50 1992
  1880. --- support/pop/popd.c    Fri Feb 26 14:11:25 1993
  1881. ***************
  1882. *** 1,6 ****
  1883.   /* popd.c - the POP server */
  1884.   #ifndef    lint
  1885. ! static char ident[] = "@(#)$Id: popd.c,v 1.13 1992/12/15 00:20:22 jromine Exp $";
  1886.   #endif    /* lint */
  1887.   
  1888.   /* Author:    Marshall T. Rose    <MRose@UDel>    (MTR)
  1889. --- 1,6 ----
  1890.   /* popd.c - the POP server */
  1891.   #ifndef    lint
  1892. ! static char ident[] = "@(#)$Id: popd.c,v 1.15 1993/02/26 22:11:12 jromine Exp $";
  1893.   #endif    /* lint */
  1894.   
  1895.   /* Author:    Marshall T. Rose    <MRose@UDel>    (MTR)
  1896. ***************
  1897. *** 60,66 ****
  1898. --- 60,68 ----
  1899.   extern int  errno;
  1900.   extern int  sys_nerr;
  1901.   extern char *sys_errlist[];
  1902. + #ifndef    BSD44        /* const */
  1903.   extern char *sys_siglist[];
  1904. + #endif
  1905.   
  1906.   
  1907.   int  debug = 0;
  1908. ***************
  1909. *** 83,89 ****
  1910.   static AUTH_DAT kdata;
  1911.   #endif
  1912.   
  1913. ! static int    chldser ();
  1914.   void    padios (), padvise ();
  1915.   
  1916.   static    server(), arginit(), envinit();
  1917. --- 85,91 ----
  1918.   static AUTH_DAT kdata;
  1919.   #endif
  1920.   
  1921. ! static TYPESIG    chldser ();
  1922.   void    padios (), padvise ();
  1923.   
  1924.   static    server(), arginit(), envinit();
  1925. ***************
  1926. *** 258,264 ****
  1927.   #endif    /* BSD43 */
  1928.       port = ntohs (sin -> sin_port);
  1929.       addr = &sin -> sin_addr;
  1930. !     hp = gethostbyaddr (addr, sizeof *addr, sin -> sin_family);
  1931.       padvise (NULLCP, LOG_INFO, "servicing %s/%d",
  1932.           hp ? hp -> h_name : inet_ntoa (*addr), port);
  1933.       if (fd != 0)
  1934. --- 260,266 ----
  1935.   #endif    /* BSD43 */
  1936.       port = ntohs (sin -> sin_port);
  1937.       addr = &sin -> sin_addr;
  1938. !     hp = gethostbyaddr ((char *)addr, sizeof *addr, sin -> sin_family);
  1939.       padvise (NULLCP, LOG_INFO, "servicing %s/%d",
  1940.           hp ? hp -> h_name : inet_ntoa (*addr), port);
  1941.       if (fd != 0)
  1942. ***************
  1943. *** 404,418 ****
  1944.   
  1945.   #ifdef    SIGCHLD
  1946.   
  1947. ! static int chldser (sig, code, sc)
  1948.   int    sig;
  1949.   long    code;
  1950.   struct sigcontext *sc;
  1951.   {
  1952.   #if defined(BSD42) && !defined(WAITINT)
  1953. -     int status;
  1954. - #else
  1955.       union wait status;
  1956.   #endif
  1957.   
  1958.       while (wait3 (&status, WNOHANG, NULLRP) > 0)
  1959. --- 406,420 ----
  1960.   
  1961.   #ifdef    SIGCHLD
  1962.   
  1963. ! static TYPESIG chldser (sig, code, sc)
  1964.   int    sig;
  1965.   long    code;
  1966.   struct sigcontext *sc;
  1967.   {
  1968.   #if defined(BSD42) && !defined(WAITINT)
  1969.       union wait status;
  1970. + #else
  1971. +     int status;
  1972.   #endif
  1973.   
  1974.       while (wait3 (&status, WNOHANG, NULLRP) > 0)
  1975. *** ../mh-6.8/support/pop/popser.c    Tue Dec 15 08:55:50 1992
  1976. --- support/pop/popser.c    Fri Feb 26 14:12:11 1993
  1977. ***************
  1978. *** 1,6 ****
  1979.   /* popser.c - the POP service */
  1980.   #ifndef    lint
  1981. ! static char ident[]="@(#)$Id: popser.c,v 1.29 1992/12/15 00:20:22 jromine Exp $";
  1982.   #endif
  1983.   
  1984.   #include "../h/mh.h"
  1985. --- 1,6 ----
  1986.   /* popser.c - the POP service */
  1987.   #ifndef    lint
  1988. ! static char ident[]="@(#)$Id: popser.c,v 1.30 1992/12/16 22:31:20 jromine Exp $";
  1989.   #endif
  1990.   
  1991.   #include "../h/mh.h"
  1992. ***************
  1993. *** 215,221 ****
  1994.   #define    TRMLEN    (sizeof TRM - 1)
  1995.   #define    IAC    255
  1996.   
  1997. ! static int    pipeser ();
  1998.   
  1999.   FILE   *input;
  2000.   FILE   *output;
  2001. --- 215,221 ----
  2002.   #define    TRMLEN    (sizeof TRM - 1)
  2003.   #define    IAC    255
  2004.   
  2005. ! static TYPESIG    pipeser ();
  2006.   
  2007.   FILE   *input;
  2008.   FILE   *output;
  2009. ***************
  2010. *** 1861,1867 ****
  2011.   
  2012.   /* ARGSUSED */
  2013.   
  2014. ! static int pipeser (sig, code, sc)
  2015.   int    sig;
  2016.   long    code;
  2017.   struct sigcontext *sc;
  2018. --- 1861,1867 ----
  2019.   
  2020.   /* ARGSUSED */
  2021.   
  2022. ! static TYPESIG pipeser (sig, code, sc)
  2023.   int    sig;
  2024.   long    code;
  2025.   struct sigcontext *sc;
  2026. *** ../mh-6.8/support/pop/syslog.c    Tue Dec 15 08:55:52 1992
  2027. --- support/pop/syslog.c    Wed Dec 16 13:49:23 1992
  2028. ***************
  2029. *** 3,9 ****
  2030.   static char SccsId[] =    "@(#)syslog.c    4.1 (Berkeley) 5/27/83";
  2031.   #endif
  2032.   #ifndef    lint
  2033. ! static char ident[] = "@(#)$Id: syslog.c,v 1.8 1992/12/15 00:20:22 jromine Exp $";
  2034.   #endif    /* lint */
  2035.   
  2036.   /*
  2037. --- 3,9 ----
  2038.   static char SccsId[] =    "@(#)syslog.c    4.1 (Berkeley) 5/27/83";
  2039.   #endif
  2040.   #ifndef    lint
  2041. ! static char ident[] = "@(#)$Id: syslog.c,v 1.8 1992/12/15 00:20:22 jromine Exp jromine $";
  2042.   #endif    /* lint */
  2043.   
  2044.   /*
  2045. *** ../mh-6.8/uip/aliasbr.c    Tue Dec 15 08:55:53 1992
  2046. --- uip/aliasbr.c    Fri Feb 26 13:58:40 1993
  2047. ***************
  2048. *** 1,10 ****
  2049.   /* aliasbr.c - new aliasing mechanism */
  2050.   #ifndef    lint
  2051. ! static char ident[] = "@(#)$Id: aliasbr.c,v 1.13 1992/12/15 00:20:22 jromine Exp $";
  2052.   #endif    /* lint */
  2053.   
  2054.   #include "../h/mh.h"
  2055.   #include "../h/aliasbr.h"
  2056.   #include <ctype.h>
  2057.   #include <grp.h>
  2058.   #include <pwd.h>
  2059. --- 1,13 ----
  2060.   /* aliasbr.c - new aliasing mechanism */
  2061.   #ifndef    lint
  2062. ! static char ident[] = "@(#)$Id: aliasbr.c,v 1.14 1993/02/26 21:58:38 jromine Exp $";
  2063.   #endif    /* lint */
  2064.   
  2065.   #include "../h/mh.h"
  2066.   #include "../h/aliasbr.h"
  2067. + #ifdef    BSD44
  2068. + #include <sys/types.h>
  2069. + #endif
  2070.   #include <ctype.h>
  2071.   #include <grp.h>
  2072.   #include <pwd.h>
  2073. *** ../mh-6.8/uip/bbc.c    Tue Dec 15 08:55:54 1992
  2074. --- uip/bbc.c    Fri Feb 26 13:59:00 1993
  2075. ***************
  2076. *** 1,6 ****
  2077.   /* bbc.c - ZOTnet BBoard checker */
  2078.   #ifndef    lint
  2079. ! static char ident[] = "@(#)$Id: bbc.c,v 2.12 1992/12/14 17:10:25 jromine Exp $";
  2080.   #endif    lint
  2081.   
  2082.   #include "../h/mh.h"
  2083. --- 1,6 ----
  2084.   /* bbc.c - ZOTnet BBoard checker */
  2085.   #ifndef    lint
  2086. ! static char ident[] = "@(#)$Id: bbc.c,v 2.13 1993/02/26 21:58:57 jromine Exp $";
  2087.   #endif    lint
  2088.   
  2089.   #include "../h/mh.h"
  2090. ***************
  2091. *** 137,147 ****
  2092.   static char  **getip ();
  2093.   #endif    BPOP
  2094.   
  2095. ! int    sigser (), action ();
  2096. ! int    hupser ();
  2097.   #ifdef    SIGTSTP
  2098.   int    tstpid;
  2099. ! static  int    tstpser ();
  2100.   #endif    SIGTSTP
  2101.   
  2102.   static char *rcfile=NULL;
  2103. --- 137,147 ----
  2104.   static char  **getip ();
  2105.   #endif    BPOP
  2106.   
  2107. ! TYPESIG    sigser (), hupser ();
  2108. ! int    action ();
  2109.   #ifdef    SIGTSTP
  2110.   int    tstpid;
  2111. ! static  TYPESIG    tstpser ();
  2112.   #endif    SIGTSTP
  2113.   
  2114.   static char *rcfile=NULL;
  2115. ***************
  2116. *** 693,699 ****
  2117.   
  2118.   /* ARGSUSED */
  2119.   
  2120. ! int    sigser (i)
  2121.   int     i;
  2122.   {
  2123.   #ifndef    BSD42
  2124. --- 693,699 ----
  2125.   
  2126.   /* ARGSUSED */
  2127.   
  2128. ! TYPESIG    sigser (i)
  2129.   int     i;
  2130.   {
  2131.   #ifndef    BSD42
  2132. ***************
  2133. *** 705,711 ****
  2134.   
  2135.   /* ARGSUSED */
  2136.   
  2137. ! int    hupser (i)
  2138.   int    i;
  2139.   {
  2140.       static int armed = 0;
  2141. --- 705,711 ----
  2142.   
  2143.   /* ARGSUSED */
  2144.   
  2145. ! TYPESIG    hupser (i)
  2146.   int    i;
  2147.   {
  2148.       static int armed = 0;
  2149. ***************
  2150. *** 813,819 ****
  2151.   /*   */
  2152.   
  2153.   #ifdef    SIGTSTP
  2154. ! static int  tstpser (sig)
  2155.   int    sig;
  2156.   {
  2157.       int        pid;
  2158. --- 813,819 ----
  2159.   /*   */
  2160.   
  2161.   #ifdef    SIGTSTP
  2162. ! static TYPESIG  tstpser (sig)
  2163.   int    sig;
  2164.   {
  2165.       int        pid;
  2166. *** ../mh-6.8/uip/ftpsbr.c    Tue Dec 15 08:55:56 1992
  2167. --- uip/ftpsbr.c    Fri Aug 20 08:49:57 1993
  2168. ***************
  2169. *** 1,7 ****
  2170.   /* ftpsbr.c - simple FTP client library (why doesn't BSD have one?!?) */
  2171.   
  2172.   #ifndef    lint
  2173. ! static char ident[] = "@(#)$Id: ftpsbr.c,v 1.10 1992/12/03 16:50:27 jromine Exp $";
  2174.   #endif
  2175.   
  2176.   #include "../h/mh.h"
  2177. --- 1,7 ----
  2178.   /* ftpsbr.c - simple FTP client library (why doesn't BSD have one?!?) */
  2179.   
  2180.   #ifndef    lint
  2181. ! static char ident[] = "@(#)$Id: ftpsbr.c,v 1.12 1993/08/20 15:49:47 jromine Exp $";
  2182.   #endif
  2183.   
  2184.   #include "../h/mh.h"
  2185. ***************
  2186. *** 49,57 ****
  2187.   #define u_long  ulong
  2188.   #endif
  2189.   
  2190. - 
  2191. - /* taken from ISODE's compat/internet.c */
  2192. - 
  2193.   #include <sys/types.h>
  2194.   #include <sys/socket.h>
  2195.   #include <netinet/in.h>
  2196. --- 49,54 ----
  2197. ***************
  2198. *** 64,114 ****
  2199.   #define    inaddr_copy(hp,sin) \
  2200.       bcopy ((hp) -> h_addr, (char *) &((sin) -> sin_addr), (hp) -> h_length)
  2201.   
  2202. - #ifndef    DG
  2203. - u_long    inet_addr ();
  2204. - #else
  2205. - struct in_addr inet_addr ();
  2206. - #endif
  2207.   
  2208.   
  2209. - static char *empty = NULL;
  2210. - #ifdef    h_addr
  2211. - static char *addrs[2] = { NULL };
  2212. - #endif
  2213. - 
  2214. - static struct hostent *gethostbystring (s)
  2215. - char   *s;
  2216. - {
  2217. -     register struct hostent *h;
  2218. - #ifndef    DG
  2219. -     static u_long iaddr;
  2220. - #else
  2221. -     static struct in_addr iaddr;
  2222. - #endif
  2223. -     static struct hostent   hs;
  2224. - 
  2225. -     iaddr = inet_addr (s);
  2226. - #ifndef    DG
  2227. -     if (iaddr == NOTOK && strcmp (s, "255.255.255.255"))
  2228. - #else
  2229. -     if (iaddr.s_addr == NOTOK && strcmp (s, "255.255.255.255"))
  2230. - #endif
  2231. -     return gethostbyname (s);
  2232. - 
  2233. -     h = &hs;
  2234. -     h -> h_name = s;
  2235. -     h -> h_aliases = ∅
  2236. -     h -> h_addrtype = AF_INET;
  2237. -     h -> h_length = sizeof (iaddr);
  2238. - #ifdef    h_addr
  2239. -     h -> h_addr_list = addrs;
  2240. -     bzero ((char *) addrs, sizeof addrs);
  2241. - #endif
  2242. -     h -> h_addr = (char *) &iaddr;
  2243. - 
  2244. -     return h;
  2245. - }
  2246. - 
  2247.   /*   */
  2248.   
  2249.   extern    int    errno;
  2250. --- 61,69 ----
  2251.   #define    inaddr_copy(hp,sin) \
  2252.       bcopy ((hp) -> h_addr, (char *) &((sin) -> sin_addr), (hp) -> h_length)
  2253.   
  2254.   
  2255. + struct hostent *gethostbystring ();
  2256.   
  2257.   /*   */
  2258.   
  2259.   extern    int    errno;
  2260. ***************
  2261. *** 226,231 ****
  2262. --- 181,204 ----
  2263.   int    ascii,
  2264.       stayopen;
  2265.   {
  2266. +     return ftp_trans (host, user, password, cwd, remote, local, "RETR", ascii,
  2267. +               stayopen);
  2268. + }
  2269. + 
  2270. + /*   */
  2271. + 
  2272. + int    ftp_trans (host, user, password, cwd, remote, local, cmd, ascii,
  2273. +            stayopen)
  2274. + char   *host,
  2275. +        *user,
  2276. +        *password,
  2277. +        *cwd,
  2278. +        *remote,
  2279. +        *local,
  2280. +        *cmd;
  2281. + int    ascii,
  2282. +     stayopen;
  2283. + {
  2284.       int        result;
  2285.   
  2286.       if (stayopen <= 0) {
  2287. ***************
  2288. *** 292,298 ****
  2289.       goto out;
  2290.       }
  2291.   
  2292. !     result = ftp_read (remote, local, ascii);
  2293.   
  2294.   out: ;
  2295.       if (result != OK || !stayopen)
  2296. --- 265,271 ----
  2297.       goto out;
  2298.       }
  2299.   
  2300. !     result = ftp_read (remote, local, cmd, ascii);
  2301.   
  2302.   out: ;
  2303.       if (result != OK || !stayopen)
  2304. ***************
  2305. *** 319,344 ****
  2306.   
  2307.   /*   */
  2308.   
  2309. ! static int  ftp_read (remote, local, ascii)
  2310.   char    *remote,
  2311. !     *local;
  2312.   int    ascii;
  2313.   {
  2314.       register int    cc;
  2315.       int        expectingreply = 0;
  2316.       char    buffer[BUFSIZ];
  2317. !     FILE   *fp;
  2318.   
  2319.       if (initconn () == NOTOK)
  2320.       goto bad;
  2321.   
  2322.       v_noise = v_verbose;
  2323. !     if (command (-1, "RETR %s", remote) != PRELIM)
  2324.       goto bad;
  2325.   
  2326.       expectingreply++;
  2327.       if (dataconn () == NOTOK) {
  2328.   bad: ;
  2329.       if (data_fd != NOTOK)
  2330.           (void) close_tcp_socket (data_fd), data_fd = NOTOK;
  2331.       if (expectingreply)
  2332. --- 292,322 ----
  2333.   
  2334.   /*   */
  2335.   
  2336. ! static int  ftp_read (remote, local, cmd, ascii)
  2337.   char    *remote,
  2338. !     *local,
  2339. !     *cmd;
  2340.   int    ascii;
  2341.   {
  2342. +     int        istdio = 0,
  2343. +         istore;
  2344.       register int    cc;
  2345.       int        expectingreply = 0;
  2346.       char    buffer[BUFSIZ];
  2347. !     FILE   *fp = NULL;
  2348.   
  2349.       if (initconn () == NOTOK)
  2350.       goto bad;
  2351.   
  2352.       v_noise = v_verbose;
  2353. !     if (command (-1, *remote ? "%s %s" : "%s", cmd, remote) != PRELIM)
  2354.       goto bad;
  2355.   
  2356.       expectingreply++;
  2357.       if (dataconn () == NOTOK) {
  2358.   bad: ;
  2359. +         if (fp && !istdio)
  2360. +         (void) fclose (fp);
  2361.       if (data_fd != NOTOK)
  2362.           (void) close_tcp_socket (data_fd), data_fd = NOTOK;
  2363.       if (expectingreply)
  2364. ***************
  2365. *** 347,407 ****
  2366.       return NOTOK;
  2367.       }
  2368.   
  2369. !     if ((fp = fopen (local, "w")) == NULL) {
  2370. !     perror (local);
  2371. !     goto bad;
  2372. !     }
  2373.   
  2374. !     if (ascii) {
  2375. !     int    c;
  2376. !     FILE   *in;
  2377. ! 
  2378. !     if (!(in = fdopen (data_fd, "r"))) {
  2379. !         perror ("fdopen");
  2380.           goto bad;
  2381.       }
  2382. -     while ((c = getc (in)) != EOF) {
  2383. -         if (c == '\r')
  2384. -         switch (c = getc (in)) {
  2385. -             case EOF:
  2386. -             case '\0':
  2387. -                 c = '\r';
  2388. -             break;
  2389.   
  2390. !             case '\n':
  2391. !             break;
  2392.   
  2393. !             default:
  2394. !             (void) putc ('\r', fp);
  2395. !             break;
  2396. !         }
  2397. ! 
  2398. !         if (putc (c, fp) == EOF) {
  2399. !         perror ("putc");
  2400. !         (void) fclose (in);
  2401. !         data_fd = NOTOK;
  2402.           goto bad;
  2403.           }
  2404.       }
  2405.   
  2406. !     (void) fclose (in);
  2407. !     data_fd = NOTOK;
  2408.       }
  2409.       else {
  2410. !     while ((cc = read_tcp_socket (data_fd, buffer, sizeof buffer)) > 0)
  2411. !         if (fwrite (buffer, sizeof *buffer, cc, fp) == 0) {
  2412. !         perror ("fwrite");
  2413.           goto bad;
  2414.           }
  2415. !     if (cc < 0) {
  2416. !         perror ("read_tcp_socket");
  2417. !         goto bad;
  2418.       }
  2419.   
  2420. !     (void) close_tcp_socket (data_fd), data_fd = NOTOK;
  2421.       }
  2422.   
  2423. !     (void) fclose (fp);
  2424.   
  2425.       v_noise = v_verbose;
  2426.       return (getreply (1, 0) == COMPLETE ? OK : NOTOK);
  2427. --- 325,428 ----
  2428.       return NOTOK;
  2429.       }
  2430.   
  2431. !     istore = !strcmp (cmd, "STOR");
  2432.   
  2433. !     if (istdio = !strcmp (local, "-"))
  2434. !     fp = istore ? stdin : stdout;
  2435. !     else
  2436. !     if ((fp = fopen (local, istore ? "r" : "w")) == NULL) {
  2437. !         perror (local);
  2438.           goto bad;
  2439.       }
  2440.   
  2441. !     if (istore) {
  2442. !     if (ascii) {
  2443. !         int        c;
  2444. !         FILE   *out;
  2445.   
  2446. !         if (!(out = fdopen (data_fd, "w"))) {
  2447. !         perror ("fdopen");
  2448.           goto bad;
  2449.           }
  2450. + 
  2451. +         while ((c = getc (fp)) != EOF) {
  2452. +         if (c == '\n')
  2453. +             (void) putc ('\r', out);
  2454. +         if (putc (c, out) == EOF) {
  2455. +             perror ("putc");
  2456. +             (void) fclose (out);
  2457. +             data_fd = NOTOK;
  2458. +             goto bad;
  2459. +         }
  2460. +         }
  2461. + 
  2462. +         (void) fclose (out);
  2463. +         data_fd = NOTOK;
  2464.       }
  2465. +     else {
  2466. +         while ((cc = fread (buffer, sizeof *buffer, sizeof buffer, fp)) >0)
  2467. +         if (write_tcp_socket (data_fd, buffer, cc) != cc) {
  2468. +             perror ("write_tcp_socket");
  2469. +             goto bad;
  2470. +         }
  2471.   
  2472. !         (void) close_tcp_socket (data_fd), data_fd = NOTOK;
  2473. !     }
  2474.       }
  2475.       else {
  2476. !     if (ascii) {
  2477. !         int        c;
  2478. !         FILE   *in;
  2479. ! 
  2480. !         if (!(in = fdopen (data_fd, "r"))) {
  2481. !         perror ("fdopen");
  2482.           goto bad;
  2483.           }
  2484. ! 
  2485. !         while ((c = getc (in)) != EOF) {
  2486. !         if (c == '\r')
  2487. !             switch (c = getc (in)) {
  2488. !                 case EOF:
  2489. !                 case '\0':
  2490. !                     c = '\r';
  2491. !                 break;
  2492. ! 
  2493. !             case '\n':
  2494. !                 break;
  2495. ! 
  2496. !             default:
  2497. !                 (void) putc ('\r', fp);
  2498. !                 break;
  2499. !             }
  2500. ! 
  2501. !         if (putc (c, fp) == EOF) {
  2502. !             perror ("putc");
  2503. !             (void) fclose (in);
  2504. !             data_fd = NOTOK;
  2505. !             goto bad;
  2506. !         }
  2507. !         }
  2508. ! 
  2509. !         (void) fclose (in);
  2510. !         data_fd = NOTOK;
  2511.       }
  2512. +     else {
  2513. +         while ((cc = read_tcp_socket (data_fd, buffer, sizeof buffer)) > 0)
  2514. +         if (fwrite (buffer, sizeof *buffer, cc, fp) == 0) {
  2515. +             perror ("fwrite");
  2516. +             goto bad;
  2517. +         }
  2518. +         if (cc < 0) {
  2519. +         perror ("read_tcp_socket");
  2520. +         goto bad;
  2521. +         }
  2522.   
  2523. !         (void) close_tcp_socket (data_fd), data_fd = NOTOK;
  2524. !     }
  2525.       }
  2526.   
  2527. !     if (!istdio)
  2528. !     (void) fclose (fp);
  2529.   
  2530.       v_noise = v_verbose;
  2531.       return (getreply (1, 0) == COMPLETE ? OK : NOTOK);
  2532. ***************
  2533. *** 488,494 ****
  2534.   
  2535.       va_start (ap);
  2536.   
  2537. !     val = _command (va_arg (ap, int), ap);
  2538.   
  2539.       va_end (ap);
  2540.   
  2541. --- 509,516 ----
  2542.   
  2543.       va_start (ap);
  2544.   
  2545. !     val = va_arg (ap, int);
  2546. !     val = _command (val, ap);
  2547.   
  2548.       va_end (ap);
  2549.   
  2550. *** ../mh-6.8/uip/inc.c    Tue Dec 15 08:55:57 1992
  2551. --- uip/inc.c    Fri Aug 20 08:50:28 1993
  2552. ***************
  2553. *** 1,6 ****
  2554.   /* inc.c - incorporate messages from a maildrop into a folder */
  2555.   #ifndef    lint
  2556. ! static char ident[] = "@(#)$Id: inc.c,v 1.20 1992/12/15 00:20:22 jromine Exp $";
  2557.   #endif    /* lint */
  2558.   
  2559.   #ifdef    MAILGROUP
  2560. --- 1,6 ----
  2561.   /* inc.c - incorporate messages from a maildrop into a folder */
  2562.   #ifndef    lint
  2563. ! static char ident[] = "@(#)$Id: inc.c,v 1.21 1993/08/20 15:50:13 jromine Exp $";
  2564.   #endif    /* lint */
  2565.   
  2566.   #ifdef    MAILGROUP
  2567. ***************
  2568. *** 408,418 ****
  2569.       }
  2570.   #ifdef    POP
  2571.       else if (host) {
  2572. !     if (rpop) {
  2573. !         if (user == NULL)
  2574. !         user = getusr ();
  2575.           pass = getusr ();
  2576. -     }
  2577.       else
  2578.           ruserpass (host, &user, &pass);
  2579.   
  2580. --- 408,417 ----
  2581.       }
  2582.   #ifdef    POP
  2583.       else if (host) {
  2584. !     if (user == NULL)
  2585. !         user = getusr ();
  2586. !     if (rpop > 0)
  2587.           pass = getusr ();
  2588.       else
  2589.           ruserpass (host, &user, &pass);
  2590.   
  2591. ***************
  2592. *** 419,425 ****
  2593.       if (pop_init (host, user, pass, snoop, rpop) == NOTOK
  2594.           || pop_stat (&nmsgs, &nbytes) == NOTOK)
  2595.           adios (NULLCP, "%s", response);
  2596. !     if (rpop)
  2597.           (void) setuid (getuid ());
  2598.       if (nmsgs == 0) {
  2599.           (void) pop_quit ();
  2600. --- 418,424 ----
  2601.       if (pop_init (host, user, pass, snoop, rpop) == NOTOK
  2602.           || pop_stat (&nmsgs, &nbytes) == NOTOK)
  2603.           adios (NULLCP, "%s", response);
  2604. !     if (rpop > 0)
  2605.           (void) setuid (getuid ());
  2606.       if (nmsgs == 0) {
  2607.           (void) pop_quit ();
  2608. *** ../mh-6.8/uip/mhlsbr.c    Tue Dec 15 08:55:58 1992
  2609. --- uip/mhlsbr.c    Fri Aug 20 08:50:50 1993
  2610. ***************
  2611. *** 1,6 ****
  2612.   /* mhlsbr.c - implement the "nifty" message lister */
  2613.   #ifndef    lint
  2614. ! static char ident[] = "@(#)$Id: mhlsbr.c,v 1.28 1992/12/15 00:20:22 jromine Exp $";
  2615.   #endif    /* lint */
  2616.   
  2617.   #include "../h/mh.h"
  2618. --- 1,6 ----
  2619.   /* mhlsbr.c - implement the "nifty" message lister */
  2620.   #ifndef    lint
  2621. ! static char ident[] = "@(#)$Id: mhlsbr.c,v 1.29 1993/08/20 15:50:44 jromine Exp $";
  2622.   #endif    /* lint */
  2623.   
  2624.   #include "../h/mh.h"
  2625. ***************
  2626. *** 1532,1537 ****
  2627. --- 1532,1540 ----
  2628.   #include <arpa/inet.h>
  2629.   #endif
  2630.   
  2631. + struct hostent *gethostbystring ();
  2632. + 
  2633. + 
  2634.   static int  doface (c1)
  2635.   register struct mcomp *c1;
  2636.   {
  2637. ***************
  2638. *** 1557,1570 ****
  2639.           return (inited = NOTOK);
  2640.       }
  2641.   
  2642. !     if (hp = gethostbyname (ap[0]))
  2643. !         bcopy (hp -> h_addr, (char *) &addr, addrlen = hp -> h_length);
  2644. !     else
  2645. !         if (iaddr = inet_addr (ap[0]))
  2646. !         bcopy ((char *) &iaddr, (char *) &addr,
  2647. !             addrlen = sizeof iaddr);
  2648. !         else
  2649. !         goto bad_faceproc;
  2650.   
  2651.       portno = htons ((u_short) atoi (ap[1]));
  2652.       free (cp);
  2653. --- 1560,1568 ----
  2654.           return (inited = NOTOK);
  2655.       }
  2656.   
  2657. !     if (!(hp = gethostbystring (ap[0])))
  2658. !         goto bad_faceproc;
  2659. !     bcopy (hp -> h_addr, (char *) &addr, addrlen = hp -> h_length);
  2660.   
  2661.       portno = htons ((u_short) atoi (ap[1]));
  2662.       free (cp);
  2663. *** ../mh-6.8/uip/mhmail.c    Tue Dec 15 08:55:58 1992
  2664. --- uip/mhmail.c    Fri Aug 20 08:51:34 1993
  2665. ***************
  2666. *** 1,6 ****
  2667.   /* mhmail.c - simple mail program */
  2668.   #ifndef    lint
  2669. ! static char ident[] = "@(#)$Id: mhmail.c,v 1.8 1992/12/15 00:20:22 jromine Exp $";
  2670.   #endif    /* lint */
  2671.   
  2672.   #include "../h/mh.h"
  2673. --- 1,6 ----
  2674.   /* mhmail.c - simple mail program */
  2675.   #ifndef    lint
  2676. ! static char ident[] = "@(#)$Id: mhmail.c,v 1.9 1993/08/20 15:51:29 jromine Exp $";
  2677.   #endif    /* lint */
  2678.   
  2679.   #include "../h/mh.h"
  2680. ***************
  2681. *** 30,35 ****
  2682. --- 30,37 ----
  2683.   
  2684.   #define    RESNDSW    5
  2685.       "resent", -6,
  2686. + #define    QUEUESW    6
  2687. +     "queued", -6,
  2688.   
  2689.       NULL, 0
  2690.   };
  2691. ***************
  2692. *** 53,58 ****
  2693. --- 55,62 ----
  2694.           status,
  2695.               i,
  2696.               iscc = 0,
  2697. +         nvec,
  2698. +         queued = 0,
  2699.           resent = 0,
  2700.               somebody;
  2701.       char   *cp,
  2702. ***************
  2703. *** 62,68 ****
  2704.          *from = NULL,
  2705.              *body = NULL,
  2706.             **argp = argv + 1,
  2707. !             buf[100];
  2708.       FILE * out;
  2709.   
  2710.   #ifdef LOCALE
  2711. --- 66,73 ----
  2712.          *from = NULL,
  2713.              *body = NULL,
  2714.             **argp = argv + 1,
  2715. !             buf[100],
  2716. !        *vec[5];
  2717.       FILE * out;
  2718.   
  2719.   #ifdef LOCALE
  2720. ***************
  2721. *** 116,121 ****
  2722. --- 121,130 ----
  2723.           case RESNDSW: 
  2724.               resent++;
  2725.               continue;
  2726. + 
  2727. +         case QUEUESW: 
  2728. +             queued++;
  2729. +             continue;
  2730.           }
  2731.       if (iscc)
  2732.           cclist = cclist ? add (cp, add (", ", cclist)) : getcpy (cp);
  2733. ***************
  2734. *** 164,169 ****
  2735. --- 173,187 ----
  2736.   
  2737.   /*   */
  2738.   
  2739. +     nvec = 0;
  2740. +     vec[nvec++] = r1bindex (postproc, '/');
  2741. +     vec[nvec++] = tmpfil;
  2742. +     if (resent)
  2743. +     vec[nvec++] = "-dist";
  2744. +     if (queued)
  2745. +     vec[nvec++] = "-queued";
  2746. +     vec[nvec] = 0;
  2747. + 
  2748.       for (i = 0; (child_id = fork ()) == NOTOK && i < 5; i++)
  2749.       sleep (5);
  2750.       switch (child_id) {
  2751. ***************
  2752. *** 170,178 ****
  2753.       case NOTOK:         /* report failure and then send it */
  2754.           admonish (NULLCP, "unable to fork");
  2755.   
  2756. !     case OK: 
  2757. !         execlp (postproc, r1bindex (postproc, '/'), tmpfil,
  2758. !             resent ? "-dist" : NULLCP, NULLCP);
  2759.           fprintf (stderr, "unable to exec ");
  2760.           perror (postproc);
  2761.           _exit (-1);
  2762. --- 188,195 ----
  2763.       case NOTOK:         /* report failure and then send it */
  2764.           admonish (NULLCP, "unable to fork");
  2765.   
  2766. !     case OK:
  2767. !         execvp (postproc, vec);
  2768.           fprintf (stderr, "unable to exec ");
  2769.           perror (postproc);
  2770.           _exit (-1);
  2771. *** ../mh-6.8/uip/mhn.c    Tue Dec 15 08:55:59 1992
  2772. --- uip/mhn.c    Fri Aug 20 08:52:32 1993
  2773. ***************
  2774. *** 1,6 ****
  2775.   /* mhn.c - multi-media MH */
  2776.   #ifndef    lint
  2777. ! static char ident[] = "@(#)$Id: mhn.c,v 2.21 1992/12/15 00:20:22 jromine Exp $";
  2778.   #endif    /* lint */
  2779.   
  2780.   #include "../h/mh.h"
  2781. --- 1,6 ----
  2782.   /* mhn.c - multi-media MH */
  2783.   #ifndef    lint
  2784. ! static char ident[] = "@(#)$Id: mhn.c,v 2.22 1993/08/20 15:52:01 jromine Exp $";
  2785.   #endif    /* lint */
  2786.   
  2787.   #include "../h/mh.h"
  2788. ***************
  2789. *** 21,117 ****
  2790.   /*   */
  2791.   
  2792.   static struct swit switches[] = {
  2793. ! #define    AUTOSW      0
  2794.       "auto", 0,
  2795. ! #define    NAUTOSW      1
  2796.       "noauto", 0,
  2797.   
  2798. ! #define    DEBUGSW      2
  2799.       "debug", -5,
  2800.       
  2801. ! #define    EBCDICSW  3
  2802.       "ebcdicsafe", 0,
  2803. ! #define    NEBCDICSW 4
  2804.       "noebcdicsafe", 0,
  2805.   
  2806. ! #define    FORMSW      5
  2807.       "form formfile", 4,
  2808.   
  2809. ! #define    HEADSW      6
  2810.       "headers", 0,
  2811. ! #define    NHEADSW      7
  2812.       "noheaders", 0,
  2813.   
  2814. ! #define    LISTSW      8
  2815.       "list", 0,
  2816. ! #define    NLISTSW      9
  2817.       "nolist", 0,
  2818.   
  2819. ! #define    PARTSW     10
  2820.       "part number", 0,
  2821.   
  2822. ! #define    SIZESW     11
  2823.       "realsize", 0,
  2824. ! #define    NSIZESW     12
  2825.       "norealsize", 0,
  2826.   
  2827. ! #define    RFC934SW 13
  2828.       "rfc934mode", 0,
  2829. ! #define    NRFC934SW 14
  2830.       "norfc934mode", 0,
  2831.   
  2832. ! #define    SERIALSW 15
  2833.       "serialonly", 0,
  2834. ! #define    NSERIALSW 16
  2835.       "noserialonly", 0,
  2836.   
  2837. ! #define    SHOWSW     17
  2838.       "show", 0,
  2839. ! #define    NSHOWSW     18
  2840.       "noshow", 0,
  2841.   
  2842. ! #define    STORESW     19
  2843.       "store", 0,
  2844. ! #define    NSTORESW 20
  2845.       "nostore", 0,
  2846.   
  2847. ! #define    TYPESW     21
  2848.       "type content", 0,
  2849.   
  2850. ! #define    VERBSW     22
  2851.       "verbose", 0,
  2852. ! #define    NVERBSW     23
  2853.       "noverbose", 0,
  2854.       
  2855. ! #define    HELPSW     24
  2856.       "help", 4,
  2857.   
  2858. ! #define    PROGSW   25
  2859.       "moreproc program", -4,
  2860. ! #define    NPROGSW     26
  2861.       "nomoreproc", -3,
  2862.   
  2863. ! #define    LENSW     27
  2864.       "length lines", -4,
  2865. ! #define    WIDSW     28
  2866.       "width columns", -4,
  2867.   
  2868. ! #define    FILESW     29        /* interface from show */
  2869.       "file file", -4,
  2870.   
  2871. ! #define    VIAMSW     30
  2872.       "viamail mailpath", -7,
  2873. ! #define    VIASSW     31
  2874.       "viasubj subject", -7,
  2875. ! #define    VIAPSW     32
  2876.       "viaparm arguments", -7,
  2877. ! #define    VIADSW     33
  2878.       "viadesc text", -7,
  2879. ! #define    VIACSW     34
  2880.       "viacmnt text", -7,
  2881. ! #define    VIAZSW     35
  2882.       "viadelay seconds", -8,
  2883. ! #define    VIAFSW     36
  2884.       "viafrom mailpath", -7,
  2885.   
  2886.       NULL, 0
  2887. --- 21,130 ----
  2888.   /*   */
  2889.   
  2890.   static struct swit switches[] = {
  2891. ! #define    AUTOSW       0
  2892.       "auto", 0,
  2893. ! #define    NAUTOSW       1
  2894.       "noauto", 0,
  2895.   
  2896. ! #define    CACHESW       2
  2897. !     "cache policy", 0,
  2898. ! 
  2899. ! #define    CHECKSW    3
  2900. !     "check", 0,
  2901. ! #define    NCHECKSW   4
  2902. !     "nocheck", 0,
  2903. ! 
  2904. ! #define    DEBUGSW       5
  2905.       "debug", -5,
  2906.       
  2907. ! #define    EBCDICSW   6
  2908.       "ebcdicsafe", 0,
  2909. ! #define    NEBCDICSW  7
  2910.       "noebcdicsafe", 0,
  2911.   
  2912. ! #define    FORMSW       8
  2913.       "form formfile", 4,
  2914.   
  2915. ! #define    HEADSW       9
  2916.       "headers", 0,
  2917. ! #define    NHEADSW      10
  2918.       "noheaders", 0,
  2919.   
  2920. ! #define    LISTSW      11
  2921.       "list", 0,
  2922. ! #define    NLISTSW      12
  2923.       "nolist", 0,
  2924.   
  2925. ! #define    PARTSW      13
  2926.       "part number", 0,
  2927.   
  2928. ! #define    PAUSESW      14
  2929. !     "pause", 0,
  2930. ! #define    NPAUSESW  15
  2931. !     "nopause", 0,
  2932. ! 
  2933. ! #define    SIZESW      16
  2934.       "realsize", 0,
  2935. ! #define    NSIZESW      17
  2936.       "norealsize", 0,
  2937.   
  2938. ! #define    RFC934SW  18
  2939.       "rfc934mode", 0,
  2940. ! #define    NRFC934SW 19
  2941.       "norfc934mode", 0,
  2942.   
  2943. ! #define    SERIALSW  20
  2944.       "serialonly", 0,
  2945. ! #define    NSERIALSW 21
  2946.       "noserialonly", 0,
  2947.   
  2948. ! #define    SHOWSW      22
  2949.       "show", 0,
  2950. ! #define    NSHOWSW      23
  2951.       "noshow", 0,
  2952.   
  2953. ! #define    STORESW      24
  2954.       "store", 0,
  2955. ! #define    NSTORESW  25
  2956.       "nostore", 0,
  2957.   
  2958. ! #define    TYPESW      26
  2959.       "type content", 0,
  2960.   
  2961. ! #define    VERBSW      27
  2962.       "verbose", 0,
  2963. ! #define    NVERBSW      28
  2964.       "noverbose", 0,
  2965.       
  2966. ! #define    HELPSW     29
  2967.       "help", 4,
  2968.   
  2969. ! #define    PROGSW   30
  2970.       "moreproc program", -4,
  2971. ! #define    NPROGSW     31
  2972.       "nomoreproc", -3,
  2973.   
  2974. ! #define    LENSW     32
  2975.       "length lines", -4,
  2976. ! #define    WIDSW     33
  2977.       "width columns", -4,
  2978.   
  2979. ! #define    FILESW     34        /* interface from show */
  2980.       "file file", -4,
  2981.   
  2982. ! #define    VIAMSW     35
  2983.       "viamail mailpath", -7,
  2984. ! #define    VIASSW     36
  2985.       "viasubj subject", -7,
  2986. ! #define    VIAPSW     37
  2987.       "viaparm arguments", -7,
  2988. ! #define    VIADSW     38
  2989.       "viadesc text", -7,
  2990. ! #define    VIACSW     39
  2991.       "viacmnt text", -7,
  2992. ! #define    VIAZSW     40
  2993.       "viadelay seconds", -8,
  2994. ! #define    VIAFSW     41
  2995.       "viafrom mailpath", -7,
  2996.   
  2997.       NULL, 0
  2998. ***************
  2999. *** 122,128 ****
  3000. --- 135,154 ----
  3001.   #define    NPARTS    50
  3002.   #define    NTYPES    20
  3003.   
  3004. + static struct swit caches[] = {
  3005. + #define    CACHE_ALWAYS    0
  3006. +     "always", 0,
  3007. + #define    CACHE_ASK    1
  3008. +     "ask", 0,
  3009. + #define    CACHE_NEVER    2
  3010. +     "never", 0,
  3011. + 
  3012. +     NULL, 0
  3013. + };
  3014. + 
  3015.   static    int    autosw = 0;
  3016. + static    int    cachesw = CACHE_ASK;
  3017. + static    int    checksw = 0;
  3018.       int    debugsw = 0;
  3019.   static    int    ebcdicsw = 0;
  3020.   static    char   *formsw = NULLCP;
  3021. ***************
  3022. *** 131,136 ****
  3023. --- 157,163 ----
  3024.   static    int    nomore = 0;
  3025.   static    int    npart = 0;
  3026.   static    char   *parts[NPARTS + 1];
  3027. + static    int    pausesw = 1;
  3028.   static    char   *progsw = NULLCP;
  3029.   static    int    rfc934sw = 1;
  3030.   static    int    serialsw = 0;
  3031. ***************
  3032. *** 219,225 ****
  3033.       caddr_t c_ctextern;        /*   .. */
  3034.       char   *c_showproc;        /* default, if not in profile */
  3035.       char   *c_termproc;        /* for charset madness... */
  3036. !     char   *c_storeproc;    /* default, if not in profile */
  3037.   
  3038.       int      (*c_ctinitfnx) ();    /* parse content */
  3039.       int      (*c_ctlistfnx) ();    /* list content */
  3040. --- 246,252 ----
  3041.       caddr_t c_ctextern;        /*   .. */
  3042.       char   *c_showproc;        /* default, if not in profile */
  3043.       char   *c_termproc;        /* for charset madness... */
  3044. !     char   *c_storeproc;    /* overrides profile entry, if any */
  3045.   
  3046.       int      (*c_ctinitfnx) ();    /* parse content */
  3047.       int      (*c_ctlistfnx) ();    /* list content */
  3048. ***************
  3049. *** 253,258 ****
  3050. --- 280,287 ----
  3051.       char   *c_id;        /* Content-ID: */
  3052.       char   *c_descr;        /* Content-Description: */
  3053.   
  3054. +     int        c_digested;        /* Content-MD5: */
  3055. +     unsigned char c_digest[16];    /*   .. */
  3056.   
  3057.       FILE   *c_fp;        /* read contents (stream) */
  3058.       char   *c_file;        /* read contents (file) */
  3059. ***************
  3060. *** 280,286 ****
  3061. --- 309,317 ----
  3062.   #endif
  3063.   
  3064.   static int   init_encoding(), type_ok(), copy_some_headers(), set_endian();
  3065. + static int   make_intermediates ();
  3066.   static int   write7Bit(), writeQuoted(), writeBase64(), writeBase64aux();
  3067. + static int   writeDigest (), readDigest ();
  3068.   static int   via_mail(), via_post(), pidcheck();
  3069.   
  3070.   static    CT    *cts = NULL;
  3071. ***************
  3072. *** 359,364 ****
  3073. --- 390,416 ----
  3074.               autosw = 0;
  3075.               continue;
  3076.   
  3077. +         case CACHESW:
  3078. +             if (!(cp = *argp++) || *cp == '-')
  3079. +             adios (NULLCP, "missing argument to %s", argp[-2]);
  3080. +             switch (cachesw = smatch (cp, caches)) {
  3081. +             case AMBIGSW:
  3082. +                 ambigsw (cp, caches);
  3083. +                 done (1);
  3084. +             case UNKWNSW:
  3085. +                 adios (NULLCP, "%s unknown", cp);
  3086. +             default:
  3087. +                 break;
  3088. +             }
  3089. +             continue;
  3090. + 
  3091. +         case CHECKSW:
  3092. +             checksw++;
  3093. +             continue;
  3094. +         case NCHECKSW:
  3095. +             checksw = 0;
  3096. +             continue;
  3097. + 
  3098.           case DEBUGSW:
  3099.               debugsw++;
  3100.               continue;
  3101. ***************
  3102. *** 402,407 ****
  3103. --- 454,466 ----
  3104.               parts[npart++] = cp;
  3105.               continue;
  3106.   
  3107. +         case PAUSESW:
  3108. +             pausesw++;
  3109. +             continue;
  3110. +         case NPAUSESW:
  3111. +             pausesw = 0;
  3112. +             continue;
  3113. + 
  3114.           case RFC934SW:
  3115.               rfc934sw++;
  3116.               continue;
  3117. ***************
  3118. *** 527,533 ****
  3119.       /* NOTREACHED */
  3120.       }
  3121.       else
  3122. !     if (f2 || f3 || f4 || f5 || f6)
  3123.           adios (NULLCP, "missing -viamail \"mailpath\" switch");
  3124.   
  3125.       if (cp = getenv ("MHN")) {
  3126. --- 586,592 ----
  3127.       /* NOTREACHED */
  3128.       }
  3129.       else
  3130. !     if (f2 || f3 || f4 || f5 || f6 || f7)
  3131.           adios (NULLCP, "missing -viamail \"mailpath\" switch");
  3132.   
  3133.       if (cp = getenv ("MHN")) {
  3134. ***************
  3135. *** 546,552 ****
  3136.       }
  3137.   
  3138.       (void) sprintf (buf, "%s-cache", invo_name);
  3139. !     cache = m_find (buf);
  3140.   
  3141.       cwdlen = strlen (cwd = getcpy (pwd ()));
  3142.       (void) sprintf (buf, "%s-storage", invo_name);
  3143. --- 605,611 ----
  3144.       }
  3145.   
  3146.       (void) sprintf (buf, "%s-cache", invo_name);
  3147. !     cache = cachesw != CACHE_NEVER ? m_find (buf) : NULLCP;
  3148.   
  3149.       cwdlen = strlen (cwd = getcpy (pwd ()));
  3150.       (void) sprintf (buf, "%s-storage", invo_name);
  3151. ***************
  3152. *** 817,823 ****
  3153.               /* NOTREACHED */
  3154.   
  3155.           default:
  3156. !             xpid = child_id;
  3157.               break;
  3158.           }
  3159.   
  3160. --- 876,882 ----
  3161.               /* NOTREACHED */
  3162.   
  3163.           default:
  3164. !             xpid = -child_id;
  3165.               break;
  3166.           }
  3167.   
  3168. ***************
  3169. *** 896,912 ****
  3170.   };
  3171.   
  3172.   
  3173. ! static int InitApplication (), InitMessage (), InitMultiPart (), InitText ();
  3174.           
  3175.   
  3176.   static struct str2init str2cts[] = {
  3177.       "application",  CT_APPLICATION, InitApplication,
  3178. !     "audio",        CT_AUDIO,        NULL,
  3179. !     "image",        CT_IMAGE,        NULL,
  3180.       "message",        CT_MESSAGE,        InitMessage,
  3181.       "multipart",    CT_MULTIPART,   InitMultiPart,
  3182.       "text",        CT_TEXT,        InitText,
  3183. !     "video",        CT_VIDEO,        NULL,
  3184.   
  3185.       NULL,        CT_EXTENSION,   NULL,    /* these two must be last! */
  3186.       NULL,        CT_UNKNOWN,        NULL,
  3187. --- 955,972 ----
  3188.   };
  3189.   
  3190.   
  3191. ! static int InitApplication (), InitMessage (), InitMultiPart (), InitText (),
  3192. !            InitGeneric ();
  3193.           
  3194.   
  3195.   static struct str2init str2cts[] = {
  3196.       "application",  CT_APPLICATION, InitApplication,
  3197. !     "audio",        CT_AUDIO,        InitGeneric,
  3198. !     "image",        CT_IMAGE,        InitGeneric,
  3199.       "message",        CT_MESSAGE,        InitMessage,
  3200.       "multipart",    CT_MULTIPART,   InitMultiPart,
  3201.       "text",        CT_TEXT,        InitText,
  3202. !     "video",        CT_VIDEO,        InitGeneric,
  3203.   
  3204.       NULL,        CT_EXTENSION,   NULL,    /* these two must be last! */
  3205.       NULL,        CT_UNKNOWN,        NULL,
  3206. ***************
  3207. *** 952,958 ****
  3208.               compnum++;
  3209.   
  3210.           if (uleq (name, VRSN_FIELD)) {
  3211. !             register char  *cp;
  3212.   
  3213.               cp = add (buf, NULLCP);
  3214.               while (state == FLDPLUS) {
  3215. --- 1012,1021 ----
  3216.               compnum++;
  3217.   
  3218.           if (uleq (name, VRSN_FIELD)) {
  3219. !             int        ucmp;
  3220. !             char    c,
  3221. !                    *cp,
  3222. !                *dp;
  3223.   
  3224.               cp = add (buf, NULLCP);
  3225.               while (state == FLDPLUS) {
  3226. ***************
  3227. *** 961,971 ****
  3228.               }
  3229.   
  3230.               if (ct -> c_vrsn) {
  3231. -             char   *dp = trimcpy (cp);
  3232. - 
  3233.               advise (NULLCP,
  3234.                   "message %s has multiple %s: fields (%s)",
  3235. !                 ct -> c_file, VRSN_FIELD, dp);
  3236.               free (dp);
  3237.               free (cp);
  3238.               goto out;
  3239. --- 1024,1032 ----
  3240.               }
  3241.   
  3242.               if (ct -> c_vrsn) {
  3243.               advise (NULLCP,
  3244.                   "message %s has multiple %s: fields (%s)",
  3245. !                 ct -> c_file, VRSN_FIELD, dp = trimcpy (cp));
  3246.               free (dp);
  3247.               free (cp);
  3248.               goto out;
  3249. ***************
  3250. *** 972,993 ****
  3251.               }
  3252.   
  3253.               ct -> c_vrsn = cp;
  3254. - #ifdef    whocares
  3255.               while (isspace (*cp))
  3256.               cp++;
  3257.               for (dp = cp; istoken (*dp); dp++)
  3258.               continue;
  3259. !             c = *dp, *dp = NULL;
  3260. !             if (!uleq (cp, VRSN_VALUE)) {
  3261. !             if (!isspace (c))
  3262. !                 *dp = c;
  3263. !             advise (NULLCP,
  3264. !                 "message %s has unsupported value for %s: field (%s)",
  3265. !                 ct -> c_file, VRSN_FIELD, cp);
  3266. !             goto out;
  3267. !             }
  3268.               *dp = c;
  3269. ! #endif
  3270.               goto got_header;
  3271.           }
  3272.   
  3273. --- 1033,1061 ----
  3274.               }
  3275.   
  3276.               ct -> c_vrsn = cp;
  3277.               while (isspace (*cp))
  3278.               cp++;
  3279. +             for (dp = index (cp, '\n'); dp; dp = index (dp, '\n'))
  3280. +             *dp++ = ' ';
  3281. +             for (dp = cp + strlen (cp) - 1; dp >= cp; dp--)
  3282. +             if (!isspace (*dp))
  3283. +                 break;
  3284. +             *++dp = '\0';
  3285. +             if (debugsw)
  3286. +             fprintf (stderr, "%s: %s\n", VRSN_FIELD, cp);
  3287. + 
  3288. +             if (*cp == '(' && get_comment (ct, &cp, 0) == NOTOK)
  3289. +             goto out;
  3290. + 
  3291.               for (dp = cp; istoken (*dp); dp++)
  3292.               continue;
  3293. !             c = *dp, *dp = '\0';
  3294. !             ucmp = uleq (cp, VRSN_VALUE);
  3295.               *dp = c;
  3296. !             if (!ucmp)
  3297. !             admonish (NULLCP,
  3298. !                 "message %s has unknown value for %s: field (%s)",
  3299. !                 ct -> c_file, VRSN_FIELD, cp);
  3300.               goto got_header;
  3301.           }
  3302.   
  3303. ***************
  3304. *** 1083,1088 ****
  3305. --- 1151,1209 ----
  3306.               goto got_header;
  3307.           }
  3308.   
  3309. +         if (uleq (name, MD5_FIELD)) {
  3310. +             char   *cp,
  3311. +                    *dp,
  3312. +                    *ep;
  3313. + 
  3314. +             cp = add (buf, NULLCP);
  3315. +             while (state == FLDPLUS) {
  3316. +             state = m_getfld (state, name, buf, sizeof buf, in);
  3317. +             cp = add (buf, cp);
  3318. +             }
  3319. + 
  3320. +             if (!checksw) {
  3321. +             free (cp);
  3322. +             goto got_header;
  3323. +             }
  3324. + 
  3325. +             if (ct -> c_digested) {
  3326. +             advise (NULLCP,
  3327. +                 "message %s has multiple %s: fields (%s)",
  3328. +                 ct -> c_file, MD5_FIELD,
  3329. +                 dp = trimcpy (cp));
  3330. +             free (dp);
  3331. +             free (cp);
  3332. +             goto out;
  3333. +             }
  3334. + 
  3335. +             ep = cp;
  3336. +             while (isspace (*cp))
  3337. +             cp++;
  3338. +             for (dp = index (cp, '\n'); dp; dp = index (dp, '\n'))
  3339. +             *dp++ = ' ';
  3340. +             for (dp = cp + strlen (cp) - 1; dp >= cp; dp--)
  3341. +             if (!isspace (*dp))
  3342. +                 break;
  3343. +             *++dp = '\0';
  3344. +             if (debugsw)
  3345. +             fprintf (stderr, "%s: %s\n", MD5_FIELD, cp);
  3346. + 
  3347. +             if (*cp == '(' && get_comment (ct, &cp, 0) == NOTOK) {
  3348. +             free (ep);
  3349. +             goto out;
  3350. +             }
  3351. + 
  3352. +             for (dp = cp; *dp && !isspace (*dp); dp++)
  3353. +             continue;
  3354. +             *dp = '\0';
  3355. + 
  3356. +             (void) readDigest (ct, cp);
  3357. +             free (ep);
  3358. +             ct -> c_digested++;
  3359. +             goto got_header;
  3360. +         }
  3361. + 
  3362.   #ifdef    notdef
  3363.           if (uprf (name, XXX_FIELD_PRF))
  3364.               advise (NULLCP, "unknown field (%s) in message %s",
  3365. ***************
  3366. *** 1177,1183 ****
  3367.       if (debugsw)
  3368.       fprintf (stderr, "%s: %s\n", TYPE_FIELD, cp);
  3369.   
  3370. !     if (*cp == '(' && get_comment (ct, &cp) == NOTOK)
  3371.       return NOTOK;
  3372.   
  3373.       for (dp = cp; istoken (*dp); dp++)
  3374. --- 1298,1304 ----
  3375.       if (debugsw)
  3376.       fprintf (stderr, "%s: %s\n", TYPE_FIELD, cp);
  3377.   
  3378. !     if (*cp == '(' && get_comment (ct, &cp, 1) == NOTOK)
  3379.       return NOTOK;
  3380.   
  3381.       for (dp = cp; istoken (*dp); dp++)
  3382. ***************
  3383. *** 1199,1205 ****
  3384.       while (isspace (*cp))
  3385.       cp++;
  3386.   
  3387. !     if (*cp == '(' && get_comment (ct, &cp) == NOTOK)
  3388.       return NOTOK;
  3389.   
  3390.       if (*cp != '/') {
  3391. --- 1320,1326 ----
  3392.       while (isspace (*cp))
  3393.       cp++;
  3394.   
  3395. !     if (*cp == '(' && get_comment (ct, &cp, 1) == NOTOK)
  3396.       return NOTOK;
  3397.   
  3398.       if (*cp != '/') {
  3399. ***************
  3400. *** 1212,1218 ****
  3401.       while (isspace (*cp))
  3402.       cp++;
  3403.   
  3404. !     if (*cp == '(' && get_comment (ct, &cp) == NOTOK)
  3405.       return NOTOK;
  3406.   
  3407.       for (dp = cp; istoken (*dp); dp++)
  3408. --- 1333,1339 ----
  3409.       while (isspace (*cp))
  3410.       cp++;
  3411.   
  3412. !     if (*cp == '(' && get_comment (ct, &cp, 1) == NOTOK)
  3413.       return NOTOK;
  3414.   
  3415.       for (dp = cp; istoken (*dp); dp++)
  3416. ***************
  3417. *** 1236,1242 ****
  3418.       while (isspace (*cp))
  3419.       cp++;
  3420.   
  3421. !     if (*cp == '(' && get_comment (ct, &cp) == NOTOK)
  3422.       return NOTOK;
  3423.   
  3424.       ep = (ap = ci -> ci_attrs) + NPARMS;
  3425. --- 1357,1363 ----
  3426.       while (isspace (*cp))
  3427.       cp++;
  3428.   
  3429. !     if (*cp == '(' && get_comment (ct, &cp, 1) == NOTOK)
  3430.       return NOTOK;
  3431.   
  3432.       ep = (ap = ci -> ci_attrs) + NPARMS;
  3433. ***************
  3434. *** 1255,1261 ****
  3435.       while (isspace (*cp))
  3436.           cp++;
  3437.   
  3438. !     if (*cp == '(' && get_comment (ct, &cp) == NOTOK)
  3439.           return NOTOK;
  3440.   
  3441.       if (*cp == 0) {
  3442. --- 1376,1382 ----
  3443.       while (isspace (*cp))
  3444.           cp++;
  3445.   
  3446. !     if (*cp == '(' && get_comment (ct, &cp, 1) == NOTOK)
  3447.           return NOTOK;
  3448.   
  3449.       if (*cp == 0) {
  3450. ***************
  3451. *** 1325,1331 ****
  3452.       while (isspace (*cp))
  3453.           cp++;
  3454.   
  3455. !     if (*cp == '(' && get_comment (ct, &cp) == NOTOK)
  3456.           return NOTOK;
  3457.       }
  3458.   
  3459. --- 1446,1452 ----
  3460.       while (isspace (*cp))
  3461.           cp++;
  3462.   
  3463. !     if (*cp == '(' && get_comment (ct, &cp, 1) == NOTOK)
  3464.           return NOTOK;
  3465.       }
  3466.   
  3467. ***************
  3468. *** 1365,1373 ****
  3469.   
  3470.   /*   */
  3471.   
  3472. ! static int  get_comment (ct, ap)
  3473.   CT    ct;
  3474.   char  **ap;
  3475.   {
  3476.       register int    i;
  3477.       register char  *bp,
  3478. --- 1486,1495 ----
  3479.   
  3480.   /*   */
  3481.   
  3482. ! static int  get_comment (ct, ap, istype)
  3483.   CT    ct;
  3484.   char  **ap;
  3485. + int    istype;
  3486.   {
  3487.       register int    i;
  3488.       register char  *bp,
  3489. ***************
  3490. *** 1386,1392 ****
  3491.           case '\0':
  3492.   invalid: ;
  3493.               advise (NULLCP, "invalid comment in message %s's %s: field",
  3494. !             ct -> c_file, TYPE_FIELD);
  3495.           return NOTOK;
  3496.   
  3497.           case '\\':
  3498. --- 1508,1514 ----
  3499.           case '\0':
  3500.   invalid: ;
  3501.               advise (NULLCP, "invalid comment in message %s's %s: field",
  3502. !             ct -> c_file, istype ? TYPE_FIELD : VRSN_FIELD);
  3503.           return NOTOK;
  3504.   
  3505.           case '\\':
  3506. ***************
  3507. *** 1413,1424 ****
  3508.       }
  3509.       *bp = '\0';
  3510.   
  3511. !     if (dp = ci -> ci_comment) {
  3512. !     ci -> ci_comment = concat (dp, " ", buffer, NULLCP);
  3513. !     free (dp);
  3514.       }
  3515. -     else
  3516. -     ci -> ci_comment = add (buffer, NULLCP);
  3517.   
  3518.       while (isspace (*cp))
  3519.       cp++;
  3520. --- 1535,1548 ----
  3521.       }
  3522.       *bp = '\0';
  3523.   
  3524. !     if (istype) {
  3525. !     if (dp = ci -> ci_comment) {
  3526. !         ci -> ci_comment = concat (dp, " ", buffer, NULLCP);
  3527. !         free (dp);
  3528. !     }
  3529. !     else
  3530. !         ci -> ci_comment = add (buffer, NULLCP);
  3531.       }
  3532.   
  3533.       while (isspace (*cp))
  3534.       cp++;
  3535. ***************
  3536. *** 1501,1507 ****
  3537.       fprintf (stderr, "  partno \"%s\"\n", empty (ct -> c_partno));
  3538.   
  3539.       if (ct -> c_vrsn)
  3540. !     fprintf (stderr, "  %s:%s", VRSN_FIELD, ct -> c_vrsn);
  3541.   
  3542.       if (ct -> c_ctline)
  3543.       fprintf (stderr, "  %s:%s", TYPE_FIELD, ct -> c_ctline);
  3544. --- 1625,1631 ----
  3545.       fprintf (stderr, "  partno \"%s\"\n", empty (ct -> c_partno));
  3546.   
  3547.       if (ct -> c_vrsn)
  3548. !     fprintf (stderr, "  %s:%s\n", VRSN_FIELD, ct -> c_vrsn);
  3549.   
  3550.       if (ct -> c_ctline)
  3551.       fprintf (stderr, "  %s:%s", TYPE_FIELD, ct -> c_ctline);
  3552. ***************
  3553. *** 1776,1782 ****
  3554.               break;
  3555.   
  3556.           case 'p':    /* pause prior to displaying content */
  3557. !             xpause = 1;
  3558.               /* and fall... */
  3559.           case 'l':    /* display listing prior to displaying
  3560.                      content */
  3561. --- 1900,1906 ----
  3562.               break;
  3563.   
  3564.           case 'p':    /* pause prior to displaying content */
  3565. !             xpause = pausesw;
  3566.               /* and fall... */
  3567.           case 'l':    /* display listing prior to displaying
  3568.                      content */
  3569. ***************
  3570. *** 1823,1829 ****
  3571.           fprintf (stderr, " using command %s\n", buffer);
  3572.       }
  3573.   
  3574. !     if (xtty && xpid) {
  3575.       (void) pidcheck (pidwait (xpid, NOTOK));
  3576.       xpid = 0;
  3577.       }
  3578. --- 1947,1955 ----
  3579.           fprintf (stderr, " using command %s\n", buffer);
  3580.       }
  3581.   
  3582. !     if (xpid < 0 || (xtty && xpid)) {
  3583. !     if (xpid < 0)
  3584. !         xpid = -xpid;
  3585.       (void) pidcheck (pidwait (xpid, NOTOK));
  3586.       xpid = 0;
  3587.       }
  3588. ***************
  3589. *** 2104,2109 ****
  3590. --- 2230,2239 ----
  3591.       }
  3592.    */
  3593.   
  3594. +     if (index (ct -> c_storage, '/')
  3595. +         && make_intermediates (ct -> c_storage) == NOTOK)
  3596. +     return NOTOK;
  3597. + 
  3598.       if (ct -> c_encoding != CE_7BIT) {
  3599.       int    cc,
  3600.           fd;
  3601. ***************
  3602. *** 2234,2239 ****
  3603. --- 2364,2370 ----
  3604.   
  3605.           default:
  3606.               if (!uprf (buffer, XXX_FIELD_PRF)
  3607. +                 && !uprf (buffer, "Encrypted:")
  3608.                   && !uprf (buffer, "Message-ID:")) {
  3609.               appending = -1;
  3610.               buffer[0] = 0;
  3611. ***************
  3612. *** 2278,2284 ****
  3613.           case FLD:
  3614.           case FLDPLUS:
  3615.           case FLDEOF:
  3616. !         if (uprf (name, XXX_FIELD_PRF) || uleq (name, "Message-ID")) {
  3617.               while (state == FLDPLUS)
  3618.               state = m_getfld (state, name, buf, sizeof buf, in);
  3619.               continue;
  3620. --- 2409,2417 ----
  3621.           case FLD:
  3622.           case FLDPLUS:
  3623.           case FLDEOF:
  3624. !         if (uprf (name, XXX_FIELD_PRF)
  3625. !                 || uleq (name, "Encrypted")
  3626. !                 || uleq (name, "Message-ID")) {
  3627.               while (state == FLDPLUS)
  3628.               state = m_getfld (state, name, buf, sizeof buf, in);
  3629.               continue;
  3630. ***************
  3631. *** 2311,2316 ****
  3632. --- 2444,2489 ----
  3633.       return OK;
  3634.   }
  3635.   
  3636. + 
  3637. + static int make_intermediates (file)
  3638. + char   *file;
  3639. + {
  3640. +     register char *cp;
  3641. + 
  3642. +     for (cp = file; cp = index (cp, '/'); cp++) {
  3643. +     struct stat st;
  3644. + 
  3645. +     *cp = NULL;
  3646. + 
  3647. +     if (stat (file, &st) == NOTOK) {
  3648. +         int        answer;
  3649. +         char   *ep;
  3650. + 
  3651. +         if (errno != ENOENT) {
  3652. +         advise (file, "error on directory");
  3653. + losing_directory: ;
  3654. +         *cp = '/';
  3655. +         return NOTOK;
  3656. +         }
  3657. + 
  3658. +         ep = concat ("Create directory \"", file, "\"? ", NULLCP);
  3659. +         answer = getanswer (ep);
  3660. +         free (ep);
  3661. + 
  3662. +         if (!answer)
  3663. +         goto losing_directory;
  3664. +         if (!makedir (file)) {
  3665. +         advise (NULLCP, "unable to create directory %s", file);
  3666. +         goto losing_directory;
  3667. +         }
  3668. +     }
  3669. + 
  3670. +     *cp = '/';
  3671. +     }
  3672. + 
  3673. +     return OK;
  3674. + }
  3675. + 
  3676.   /*   */
  3677.   
  3678.   static void  free_ctinfo (ct)
  3679. ***************
  3680. *** 2427,2432 ****
  3681. --- 2600,2628 ----
  3682.       int        kv_value;
  3683.   };
  3684.   
  3685. + 
  3686. + static int  InitGeneric (ct)
  3687. + register CT    ct;
  3688. + {
  3689. +     register char **ap,
  3690. +           **ep;
  3691. +     register CI    ci = &ct -> c_ctinfo;
  3692. + 
  3693. +     for (ap = ci -> ci_attrs, ep = ci -> ci_values; *ap; ap++, ep++)
  3694. +     if (autosw && !ct -> c_storeproc && uleq (*ap, "x-name")) {
  3695. +         register char   *cp;
  3696. + 
  3697. +         if (*(cp = *ep) != '/'
  3698. +             && *cp != '.'
  3699. +             && *cp != '|'
  3700. +             && *cp != '!'
  3701. +             && !index (cp, '%'))
  3702. +         ct -> c_storeproc = add (cp, NULLCP);
  3703. +     }
  3704. + 
  3705. +     return OK;
  3706. + }
  3707. + 
  3708.   /*     TEXT */
  3709.   
  3710.   #define    TEXT_UNKNOWN    0x00
  3711. ***************
  3712. *** 2489,2495 ****
  3713.       }
  3714.   
  3715.       for (ap = ci -> ci_attrs, ep = ci -> ci_values; *ap; ap++, ep++)
  3716. !     if (uleq (*ap, "charset")) {
  3717.           char   *cp;
  3718.           register struct text *t;
  3719.   
  3720. --- 2685,2691 ----
  3721.       }
  3722.   
  3723.       for (ap = ci -> ci_attrs, ep = ci -> ci_values; *ap; ap++, ep++)
  3724. !     if (!ct -> c_ctparams && uleq (*ap, "charset")) {
  3725.           char   *cp;
  3726.           register struct text *t;
  3727.   
  3728. ***************
  3729. *** 2510,2519 ****
  3730.           if ((!mm_charset || !uleq (mm_charset, *ep))
  3731.               && (cp = m_find (buffer)))
  3732.           ct -> c_termproc = getcpy (cp);
  3733. -         
  3734. -         break;
  3735.       }
  3736.   
  3737.       return OK;
  3738.   }
  3739.   
  3740. --- 2706,2724 ----
  3741.           if ((!mm_charset || !uleq (mm_charset, *ep))
  3742.               && (cp = m_find (buffer)))
  3743.           ct -> c_termproc = getcpy (cp);
  3744.       }
  3745. +         else
  3746. +         if (autosw && !ct -> c_storeproc && uleq (*ap, "x-name")) {
  3747. +         register char   *cp;
  3748.   
  3749. +         if (*(cp = *ep) != '/'
  3750. +                 && *cp != '.'
  3751. +                 && *cp != '|'
  3752. +                 && *cp != '!'
  3753. +                 && !index (cp, '%'))
  3754. +             ct -> c_storeproc = add (cp, NULLCP);
  3755. +         }
  3756. + 
  3757.       return OK;
  3758.   }
  3759.   
  3760. ***************
  3761. *** 3130,3135 ****
  3762. --- 3335,3341 ----
  3763.       char   *eb_mode;
  3764.   
  3765.       char   *eb_server;
  3766. +     char   *eb_subject;
  3767.       char   *eb_body;
  3768.   
  3769.       unsigned long
  3770. ***************
  3771. *** 3212,3217 ****
  3772. --- 3418,3427 ----
  3773.           e -> eb_server = *ep;
  3774.           continue;
  3775.       }
  3776. +     if (uleq (*ap, "subject")) {
  3777. +         e -> eb_subject = *ep;
  3778. +         continue;
  3779. +     }
  3780.       if (composing && uleq (*ap, "body")) {
  3781.           e -> eb_body = getcpy (*ep);
  3782.           continue;
  3783. ***************
  3784. *** 3245,3250 ****
  3785. --- 3455,3462 ----
  3786.           printf ("\t         from %s\n", e -> eb_site);
  3787.       if (e -> eb_server)
  3788.           printf ("\t from mailbox %s\n", e -> eb_server);
  3789. +     if (e -> eb_subject)
  3790. +         printf ("\t with subject %s\n", e -> eb_subject);
  3791.       printf     ("\t        using %s", e -> eb_access);
  3792.       if (e -> eb_mode)
  3793.           printf (" (in %s mode)", e -> eb_mode);
  3794. ***************
  3795. *** 3527,3534 ****
  3796.   
  3797.   #define    APPLICATION_UNKNOWN    0x00
  3798.   #define    APPLICATION_OCTETS    0x01
  3799. ! #define    APPLICATION_ODA        0x02
  3800. ! #define    APPLICATION_POSTSCRIPT    0x03
  3801.   
  3802.   
  3803.   static int  list_application (ct, toplevel)
  3804. --- 3739,3745 ----
  3805.   
  3806.   #define    APPLICATION_UNKNOWN    0x00
  3807.   #define    APPLICATION_OCTETS    0x01
  3808. ! #define    APPLICATION_POSTSCRIPT    0x02
  3809.   
  3810.   
  3811.   static int  list_application (ct, toplevel)
  3812. ***************
  3813. *** 3551,3557 ****
  3814.   
  3815.   static struct k2v SubApplication[] = {
  3816.       "octet-stream",      APPLICATION_OCTETS,
  3817. -     "oda",          APPLICATION_ODA,
  3818.       "postscript",      APPLICATION_POSTSCRIPT,
  3819.       NULL,              APPLICATION_UNKNOWN    /* this one must be last! */
  3820.   };
  3821. --- 3762,3767 ----
  3822. ***************
  3823. *** 3570,3588 ****
  3824.       if (uleq (ci -> ci_subtype, kv -> kv_key))
  3825.           break;
  3826.   
  3827. !     if (autosw && !ct -> c_storeproc)
  3828. !     for (ap = ci -> ci_attrs, ep = ci -> ci_values; *ap; ap++, ep++)
  3829. !         if (uleq (*ap, "name")) {
  3830. !         register char   *cp;
  3831.   
  3832. !         if (*(cp = *ep) != '/'
  3833. !                 && *cp != '.'
  3834. !                 && *cp != '|'
  3835. !                 && *cp != '!'
  3836. !                 && !index (cp, '%'))
  3837. !             ct -> c_storeproc = add (cp, NULLCP);
  3838. !         break;
  3839. !         }
  3840.   
  3841.       if ((ct -> c_subtype = kv -> kv_value) == APPLICATION_OCTETS) {
  3842.       int    tarP,
  3843. --- 3780,3796 ----
  3844.       if (uleq (ci -> ci_subtype, kv -> kv_key))
  3845.           break;
  3846.   
  3847. !     for (ap = ci -> ci_attrs, ep = ci -> ci_values; *ap; ap++, ep++)
  3848. !     if (autosw && !ct -> c_storeproc && uleq (*ap, "x-name")) {
  3849. !         register char   *cp;
  3850.   
  3851. !         if (*(cp = *ep) != '/'
  3852. !             && *cp != '.'
  3853. !             && *cp != '|'
  3854. !             && *cp != '!'
  3855. !             && !index (cp, '%'))
  3856. !         ct -> c_storeproc = add (cp, NULLCP);
  3857. !     }
  3858.   
  3859.       if ((ct -> c_subtype = kv -> kv_value) == APPLICATION_OCTETS) {
  3860.       int    tarP,
  3861. ***************
  3862. *** 3598,3604 ****
  3863.           continue;
  3864.           }
  3865.   
  3866. !         if (uleq (*ap, "conversions")
  3867.               && (uleq (*ep, "compress") || uleq (*ep, "x-compress"))) {
  3868.           zP = 1;
  3869.           continue;
  3870. --- 3806,3812 ----
  3871.           continue;
  3872.           }
  3873.   
  3874. !         if ((uleq (*ap, "conversions") || uleq (*ap, "x-conversions"))
  3875.               && (uleq (*ep, "compress") || uleq (*ep, "x-compress"))) {
  3876.           zP = 1;
  3877.           continue;
  3878. ***************
  3879. *** 3625,3630 ****
  3880. --- 3833,3841 ----
  3881.   
  3882.   /*     ENCODINGS */
  3883.   
  3884. + #include "md5.c"
  3885. + 
  3886. + 
  3887.   struct cefile {
  3888.       char   *ce_file;
  3889.       int        ce_unlink;
  3890. ***************
  3891. *** 3773,3778 ****
  3892. --- 3984,3990 ----
  3893.   {
  3894.       int        bitno,
  3895.           cc,
  3896. +         digested,
  3897.           fd,
  3898.           len,
  3899.           skip;
  3900. ***************
  3901. *** 3786,3791 ****
  3902. --- 3998,4004 ----
  3903.              *b3 = &b[endian > 0 ? 3 : 0];
  3904.       char    buffer[BUFSIZ];
  3905.       register struct cefile *ce = (struct cefile *) ct -> c_ceparams;
  3906. +     MD5_CTX mdContext;
  3907.   
  3908.       if (ce -> ce_fp)
  3909.       goto ready_to_go;
  3910. ***************
  3911. *** 3817,3822 ****
  3912. --- 4030,4038 ----
  3913.       return NOTOK;
  3914.       }
  3915.       
  3916. +     if (digested = ct -> c_digested)
  3917. +     MD5Init (&mdContext);
  3918. + 
  3919.       (void) lseek (fd = fileno (ct -> c_fp), ct -> c_begin, 0);
  3920.       bitno = 18, bits = 0L, skip = 0;
  3921.       while (len > 0)
  3922. ***************
  3923. *** 3856,3865 ****
  3924.   test_end: ;
  3925.                   if ((bitno -= 6) < 0) {
  3926.                   (void) putc ((char) *b1, ce -> ce_fp);
  3927.                   if (skip < 2) {
  3928.                       (void) putc ((char) *b2, ce -> ce_fp);
  3929. !                     if (skip < 1)
  3930.                       (void) putc ((char) *b3, ce -> ce_fp);
  3931.                   }
  3932.   
  3933.                   if (ferror (ce -> ce_fp)) {
  3934. --- 4072,4088 ----
  3935.   test_end: ;
  3936.                   if ((bitno -= 6) < 0) {
  3937.                   (void) putc ((char) *b1, ce -> ce_fp);
  3938. +                 if (digested)
  3939. +                     MD5Update (&mdContext, b1, 1);
  3940.                   if (skip < 2) {
  3941.                       (void) putc ((char) *b2, ce -> ce_fp);
  3942. !                     if (digested)
  3943. !                     MD5Update (&mdContext, b2, 1);
  3944. !                     if (skip < 1) {
  3945.                       (void) putc ((char) *b3, ce -> ce_fp);
  3946. +                     if (digested)
  3947. +                         MD5Update (&mdContext, b3, 1);
  3948. +                     }
  3949.                   }
  3950.   
  3951.                   if (ferror (ce -> ce_fp)) {
  3952. ***************
  3953. *** 3892,3897 ****
  3954. --- 4115,4133 ----
  3955.       goto clean_up;
  3956.       }
  3957.   
  3958. +     if (digested) {
  3959. +     unsigned char  digest[16];
  3960. + 
  3961. +     MD5Final (digest, &mdContext);
  3962. +     if (bcmp ((char *) digest, (char *) ct -> c_digest,
  3963. +           sizeof digest / sizeof digest[0]))
  3964. +         content_error (NULLCP, ct,
  3965. +                "content integrity suspect (digest mismatch) -- continuing");
  3966. +     else
  3967. +         if (debugsw)
  3968. +         fprintf (stderr, "content integrity confirmed\n");
  3969. +     }
  3970. + 
  3971.   ready_to_go: ;
  3972.       (void) fseek (ce -> ce_fp, 0L, 0);
  3973.       *file = ce -> ce_file;
  3974. ***************
  3975. *** 3954,3959 ****
  3976. --- 4190,4196 ----
  3977.   char  **file;
  3978.   {
  3979.       int        cc,
  3980. +         digested,
  3981.           len,
  3982.           quoted;
  3983.       register char  *cp,
  3984. ***************
  3985. *** 3961,3966 ****
  3986. --- 4198,4204 ----
  3987.       char    buffer[BUFSIZ];
  3988.       unsigned char mask;
  3989.       register struct cefile *ce = (struct cefile *) ct -> c_ceparams;
  3990. +     MD5_CTX mdContext;
  3991.   
  3992.       if (ce -> ce_fp)
  3993.       goto ready_to_go;
  3994. ***************
  3995. *** 3992,3997 ****
  3996. --- 4230,4238 ----
  3997.       return NOTOK;
  3998.       }
  3999.   
  4000. +     if (digested = ct -> c_digested)
  4001. +     MD5Init (&mdContext);
  4002. + 
  4003.       (void) fseek (ct -> c_fp, ct -> c_begin, 0);
  4004.       quoted = 0;
  4005.   #ifdef    lint
  4006. ***************
  4007. *** 4025,4035 ****
  4008. --- 4266,4281 ----
  4009.               mask <<= 4;
  4010.               mask |= hex2nib[*cp & 0x7f];
  4011.               (void) putc (mask, ce -> ce_fp);
  4012. +             if (digested)
  4013. +             MD5Update (&mdContext, &mask, 1);
  4014.           }
  4015.           else
  4016.               switch (*cp) {
  4017.                   case ':':
  4018.                   (void) putc (*cp, ce -> ce_fp);
  4019. +                 if (digested)
  4020. +                 MD5Update (&mdContext, (unsigned char *) ":",
  4021. +                        1);
  4022.                   break;
  4023.   
  4024.               default:
  4025. ***************
  4026. *** 4066,4071 ****
  4027. --- 4312,4323 ----
  4028.           case '\t':
  4029.           case '\n':
  4030.               (void) putc (*cp, ce -> ce_fp);
  4031. +             if (digested) {
  4032. +             if (*cp == '\n')
  4033. +                 MD5Update (&mdContext, (unsigned char *) "\r\n",2);
  4034. +             else
  4035. +                 MD5Update (&mdContext, (unsigned char *) cp, 1);
  4036. +             }
  4037.               if (ferror (ce -> ce_fp)) {
  4038.               content_error (ce -> ce_file, ct, "error writing to");
  4039.               goto clean_up;
  4040. ***************
  4041. *** 4093,4098 ****
  4042. --- 4345,4363 ----
  4043.       goto clean_up;
  4044.       }
  4045.   
  4046. +     if (digested) {
  4047. +     unsigned char  digest[16];
  4048. + 
  4049. +     MD5Final (digest, &mdContext);
  4050. +     if (bcmp ((char *) digest, (char *) ct -> c_digest,
  4051. +           sizeof digest / sizeof digest[0]))
  4052. +         content_error (NULLCP, ct,
  4053. +                "content integrity suspect (digest mismatch) -- continuing");
  4054. +     else
  4055. +         if (debugsw)
  4056. +         fprintf (stderr, "content integrity confirmed\n");
  4057. +     }
  4058. + 
  4059.   ready_to_go: ;
  4060.       (void) fseek (ce -> ce_fp, 0L, 0);
  4061.       *file = ce -> ce_file;
  4062. ***************
  4063. *** 4206,4213 ****
  4064.   
  4065.   /*     External */
  4066.   
  4067. ! static int  openExternal (ct, ce, file, fd)
  4068.   register CT    ct;
  4069.   struct cefile *ce;
  4070.   char  **file;
  4071.   int    *fd;
  4072. --- 4471,4479 ----
  4073.   
  4074.   /*     External */
  4075.   
  4076. ! static int  openExternal (ct, cb, ce, file, fd)
  4077.   register CT    ct;
  4078. + CT    cb;
  4079.   struct cefile *ce;
  4080.   char  **file;
  4081.   int    *fd;
  4082. ***************
  4083. *** 4232,4242 ****
  4084.       }
  4085.   
  4086.       if (xpid) {
  4087.       (void) pidcheck (pidwait (xpid, NOTOK));
  4088.       xpid = 0;
  4089.       }
  4090.   
  4091. !     if (cache && (id = ct -> c_id)) {
  4092.       char    buffer[BUFSIZ];
  4093.   
  4094.       (void) sprintf (buffer, "%s/%s", cache, id = trimcpy (id));
  4095. --- 4498,4510 ----
  4096.       }
  4097.   
  4098.       if (xpid) {
  4099. +     if (xpid < 0)
  4100. +         xpid = -xpid;
  4101.       (void) pidcheck (pidwait (xpid, NOTOK));
  4102.       xpid = 0;
  4103.       }
  4104.   
  4105. !     if (cache && (id = cb -> c_id)) {
  4106.       char    buffer[BUFSIZ];
  4107.   
  4108.       (void) sprintf (buffer, "%s/%s", cache, id = trimcpy (id));
  4109. ***************
  4110. *** 4244,4257 ****
  4111.   
  4112.       id = getcpy (buffer);
  4113.       if (ce -> ce_fp = fopen (id, "r")) {
  4114.           struct stat    st;
  4115.   
  4116.           (void) fstat (fileno (ce -> ce_fp), &st);
  4117. !         (void) sprintf (buffer,
  4118. !                 "Use cached copy %s of size %lu octets (content %s)? ",
  4119. !                 id, (unsigned long) st.st_size,
  4120. !                 ct -> c_partno);
  4121.           if (getanswer (buffer)) {
  4122.           ce -> ce_unlink = 0;
  4123.           ce -> ce_file = id;
  4124.           goto ready_already;
  4125. --- 4512,4535 ----
  4126.   
  4127.       id = getcpy (buffer);
  4128.       if (ce -> ce_fp = fopen (id, "r")) {
  4129. +         char   *bp;
  4130.           struct stat    st;
  4131.   
  4132. +         if (cachesw == CACHE_ALWAYS)
  4133. +         goto do_cache;
  4134. + 
  4135.           (void) fstat (fileno (ce -> ce_fp), &st);
  4136. !         (void) sprintf (bp = buffer,
  4137. !                 "Use cached copy %s of size %lu octets",
  4138. !                 id, (unsigned long) st.st_size);
  4139. !         bp += strlen (bp);
  4140. !         if (ct -> c_partno) {
  4141. !         (void) sprintf (bp, " (content %s)", ct -> c_partno);
  4142. !         bp += strlen (bp);
  4143. !         }
  4144. !         (void) sprintf (bp, "? ");
  4145.           if (getanswer (buffer)) {
  4146. + do_cache: ;
  4147.           ce -> ce_unlink = 0;
  4148.           ce -> ce_file = id;
  4149.           goto ready_already;
  4150. ***************
  4151. *** 4276,4282 ****
  4152.       register struct exbody *e = (struct exbody *) ct -> c_ctextern;
  4153.       register struct cefile *ce = (struct cefile *) ct -> c_ceparams;
  4154.   
  4155. !     switch (openExternal (e -> eb_parent, ce, file, &fd)) {
  4156.       case NOTOK:
  4157.           return NOTOK;
  4158.   
  4159. --- 4554,4560 ----
  4160.       register struct exbody *e = (struct exbody *) ct -> c_ctextern;
  4161.       register struct cefile *ce = (struct cefile *) ct -> c_ceparams;
  4162.   
  4163. !     switch (openExternal (e -> eb_parent, e -> eb_content, ce, file, &fd)) {
  4164.       case NOTOK:
  4165.           return NOTOK;
  4166.   
  4167. ***************
  4168. *** 4300,4306 ****
  4169.       }
  4170.   
  4171.       if (cache
  4172. !         && (id = e -> eb_parent -> c_id)
  4173.           && (!e -> eb_permission
  4174.               || !uleq (e -> eb_permission, "read-write"))) {
  4175.       char    buffer[BUFSIZ];
  4176. --- 4578,4584 ----
  4177.       }
  4178.   
  4179.       if (cache
  4180. !         && (id = e -> eb_content -> c_id)
  4181.           && (!e -> eb_permission
  4182.               || !uleq (e -> eb_permission, "read-write"))) {
  4183.       char    buffer[BUFSIZ];
  4184. ***************
  4185. *** 4307,4313 ****
  4186.   
  4187.       (void) sprintf (buffer, "Make cached, publically-accessible copy of %s? ",
  4188.               e -> eb_name);
  4189. !     if (getanswer (buffer)) {
  4190.           int        mask;
  4191.           char    cachefile[BUFSIZ];
  4192.           FILE   *fp;
  4193. --- 4585,4591 ----
  4194.   
  4195.       (void) sprintf (buffer, "Make cached, publically-accessible copy of %s? ",
  4196.               e -> eb_name);
  4197. !     if (cachesw == CACHE_ALWAYS || getanswer (buffer)) {
  4198.           int        mask;
  4199.           char    cachefile[BUFSIZ];
  4200.           FILE   *fp;
  4201. ***************
  4202. *** 4317,4328 ****
  4203.   
  4204.           mask = umask (0022);
  4205.           if (fp = fopen (cachefile, "w")) {
  4206.           register FILE   *gp = ce -> ce_fp;
  4207.   
  4208.           (void) fseek (gp, 0L, 0);
  4209.   
  4210. !         while (fgets (buffer, sizeof buffer - 1, gp))
  4211. !             (void) fputs (buffer, fp);
  4212.           (void) fflush (fp);
  4213.   
  4214.           if (ferror (gp)) {
  4215. --- 4595,4608 ----
  4216.   
  4217.           mask = umask (0022);
  4218.           if (fp = fopen (cachefile, "w")) {
  4219. +         int    cc;
  4220.           register FILE   *gp = ce -> ce_fp;
  4221.   
  4222.           (void) fseek (gp, 0L, 0);
  4223.   
  4224. !         while ((cc = fread (buffer, sizeof *buffer, sizeof buffer,
  4225. !                     gp)) > 0)
  4226. !             (void) fwrite (buffer, sizeof *buffer, cc, fp);
  4227.           (void) fflush (fp);
  4228.   
  4229.           if (ferror (gp)) {
  4230. ***************
  4231. *** 4371,4377 ****
  4232.       if (!ftp)
  4233.       return NOTOK;
  4234.   #endif
  4235. !     switch (openExternal (e -> eb_parent, ce, file, &fd)) {
  4236.       case NOTOK:
  4237.           return NOTOK;
  4238.   
  4239. --- 4651,4657 ----
  4240.       if (!ftp)
  4241.       return NOTOK;
  4242.   #endif
  4243. !     switch (openExternal (e -> eb_parent, e -> eb_content, ce, file, &fd)) {
  4244.       case NOTOK:
  4245.           return NOTOK;
  4246.   
  4247. ***************
  4248. *** 4409,4419 ****
  4249.   
  4250.       ce -> ce_unlink = *file == NULL, caching = 0, cachefile[0] = 0;
  4251.       if (cache
  4252. !         && (id = e -> eb_parent -> c_id)
  4253.           && (!e -> eb_permission
  4254.               || !uleq (e -> eb_permission, "read-write"))) {
  4255.       (void) sprintf (buffer, "Make cached, publically-accessible copy? ");
  4256. !     if (getanswer (buffer)) {
  4257.           (void) sprintf (cachefile, "%s/%s", cache, id = trimcpy (id));
  4258.           free (id);
  4259.   
  4260. --- 4689,4699 ----
  4261.   
  4262.       ce -> ce_unlink = *file == NULL, caching = 0, cachefile[0] = 0;
  4263.       if (cache
  4264. !         && (id = e -> eb_content -> c_id)
  4265.           && (!e -> eb_permission
  4266.               || !uleq (e -> eb_permission, "read-write"))) {
  4267.       (void) sprintf (buffer, "Make cached, publically-accessible copy? ");
  4268. !     if (cachesw == CACHE_ALWAYS || getanswer (buffer)) {
  4269.           (void) sprintf (cachefile, "%s/%s", cache, id = trimcpy (id));
  4270.           free (id);
  4271.   
  4272. ***************
  4273. *** 4549,4555 ****
  4274.       register struct exbody *e = (struct exbody *) ct -> c_ctextern;
  4275.       register struct cefile *ce = (struct cefile *) ct -> c_ceparams;
  4276.   
  4277. !     switch (openExternal (e -> eb_parent, ce, file, &fd)) {
  4278.       case NOTOK:
  4279.           return NOTOK;
  4280.   
  4281. --- 4829,4835 ----
  4282.       register struct exbody *e = (struct exbody *) ct -> c_ctextern;
  4283.       register struct cefile *ce = (struct cefile *) ct -> c_ceparams;
  4284.   
  4285. !     switch (openExternal (e -> eb_parent, e -> eb_content, ce, file, &fd)) {
  4286.       case NOTOK:
  4287.           return NOTOK;
  4288.   
  4289. ***************
  4290. *** 4566,4572 ****
  4291.       }
  4292.   
  4293.       bp = concat ("Retrieve content ", e -> eb_partno, " by asking mailbox ",
  4294. !          e -> eb_server, "\n\n", e -> eb_body, "\n? ", NULLCP);
  4295.       result = getanswer (bp);
  4296.       free (bp);
  4297.   
  4298. --- 4846,4854 ----
  4299.       }
  4300.   
  4301.       bp = concat ("Retrieve content ", e -> eb_partno, " by asking mailbox ",
  4302. !          e -> eb_server, "\n\n",
  4303. !          e -> eb_subject ? e -> eb_subject: e -> eb_body, "\n? ",
  4304. !          NULLCP);
  4305.       result = getanswer (bp);
  4306.       free (bp);
  4307.   
  4308. ***************
  4309. *** 4577,4594 ****
  4310.       vec[vecp++] = r1bindex (mailproc, '/');
  4311.       vec[vecp++] = e -> eb_server;
  4312.       vec[vecp++] = "-subject";
  4313. !     if (cache
  4314. !         && (id = e -> eb_parent -> c_id)
  4315. !         && (!e -> eb_permission
  4316. !             || !uleq (e -> eb_permission, "read-write"))) {
  4317. !     (void) sprintf (buffer, "cache content as %s/%s", cache,
  4318. !             id = trimcpy (id));
  4319. !     free (id);
  4320. ! 
  4321. !     vec[vecp++] = buffer;
  4322. !     }
  4323. !     else
  4324.       vec[vecp++] = "mail-server request";
  4325.       vec[vecp++] = "-body";
  4326.       vec[vecp++] = e -> eb_body;
  4327.       vec[vecp] = NULL;
  4328. --- 4859,4879 ----
  4329.       vec[vecp++] = r1bindex (mailproc, '/');
  4330.       vec[vecp++] = e -> eb_server;
  4331.       vec[vecp++] = "-subject";
  4332. !     if (e -> eb_subject)
  4333.       vec[vecp++] = "mail-server request";
  4334. +     else
  4335. +     if (cache
  4336. +             && (id = e -> eb_content -> c_id)
  4337. +             && (!e -> eb_permission
  4338. +                 || !uleq (e -> eb_permission, "read-write"))) {
  4339. +         (void) sprintf (buffer, "cache content as %s/%s", cache,
  4340. +                 id = trimcpy (id));
  4341. +         free (id);
  4342. + 
  4343. +         vec[vecp++] = buffer;
  4344. +     }
  4345. +     else
  4346. +         vec[vecp++] = "mail-server request";
  4347.       vec[vecp++] = "-body";
  4348.       vec[vecp++] = e -> eb_body;
  4349.       vec[vecp] = NULL;
  4350. ***************
  4351. *** 5056,5062 ****
  4352.           }
  4353.   
  4354.           (void) sprintf (msgid, msgfmt, ++partno);
  4355. !         ct -> c_id = getcpy (msgid);
  4356.   
  4357.           return OK;
  4358.       }
  4359. --- 5341,5347 ----
  4360.           }
  4361.   
  4362.           (void) sprintf (msgid, msgfmt, ++partno);
  4363. !         p -> c_id = getcpy (msgid);
  4364.   
  4365.           return OK;
  4366.       }
  4367. ***************
  4368. *** 5223,5228 ****
  4369. --- 5508,5548 ----
  4370.   
  4371.   /*   */
  4372.   
  4373. + static char ebcdicsafe[0x100] = {
  4374. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4375. +     0x00, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00,
  4376. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4377. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4378. +     0x01, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01,
  4379. +     0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
  4380. +     0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
  4381. +     0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
  4382. +     0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
  4383. +     0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
  4384. +     0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
  4385. +     0x01, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x01,
  4386. +     0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
  4387. +     0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
  4388. +     0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
  4389. +     0x01, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00,
  4390. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4391. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4392. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4393. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4394. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4395. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4396. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4397. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4398. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4399. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4400. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4401. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4402. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4403. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4404. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  4405. +     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
  4406. + };
  4407. + 
  4408.   static int  compose_content (ct)
  4409.   register CT    ct;
  4410.   {
  4411. ***************
  4412. *** 5422,5428 ****
  4413.           switch (ct -> c_type) {
  4414.               case CT_TEXT:
  4415.                   charset = ct -> c_ctparams ? 0 : -1;
  4416. !             linelen = 0;
  4417.               break;
  4418.   
  4419.               case CT_APPLICATION:
  4420. --- 5742,5748 ----
  4421.           switch (ct -> c_type) {
  4422.               case CT_TEXT:
  4423.                   charset = ct -> c_ctparams ? 0 : -1;
  4424. !             linelen = ct -> c_subtype == TEXT_PLAIN ? 0 : -1;
  4425.               break;
  4426.   
  4427.               case CT_APPLICATION:
  4428. ***************
  4429. *** 5435,5445 ****
  4430.           }
  4431.           while (fgets (buffer, sizeof buffer - 1, in)) {
  4432.               if (charset == -1) {
  4433. !             for (cp = buffer; *cp; cp++)
  4434.                   if (!isascii (*cp)) {
  4435.                   charset = CHARSET_UNKNOWN;
  4436.                   break;
  4437.                   }
  4438.               if ((linelen == -1) && (cp - buffer > CPERLIN + 1))
  4439.                   linelen = 1;
  4440.               if (result == NOTOK)
  4441. --- 5755,5770 ----
  4442.           }
  4443.           while (fgets (buffer, sizeof buffer - 1, in)) {
  4444.               if (charset == -1) {
  4445. !             for (cp = buffer; *cp; cp++) {
  4446.                   if (!isascii (*cp)) {
  4447.                   charset = CHARSET_UNKNOWN;
  4448.                   break;
  4449.                   }
  4450. +                 if (linelen == -1
  4451. +                     && ebcdicsw
  4452. +                     && !ebcdicsafe[*cp & 0xff])
  4453. +                 linelen = 1;
  4454. +             }
  4455.               if ((linelen == -1) && (cp - buffer > CPERLIN + 1))
  4456.                   linelen = 1;
  4457.               if (result == NOTOK)
  4458. ***************
  4459. *** 5451,5456 ****
  4460. --- 5776,5786 ----
  4461.               if (result == NOTOK)
  4462.               continue;
  4463.   
  4464. +             if (linelen == -1
  4465. +                 && (cp = buffer + strlen (buffer) - 2) > buffer
  4466. +                 && isspace (*cp))
  4467. +             linelen = 1;
  4468. + 
  4469.               if (buffer[0] == '-' && buffer[1] == '-') {
  4470.               for (cp = buffer + strlen (buffer) - 1;
  4471.                        cp >= buffer;
  4472. ***************
  4473. *** 5507,5512 ****
  4474. --- 5837,5844 ----
  4475.               *cp++ = '\0';
  4476.               *ep = cp;
  4477.           }
  4478. +         if (ct -> c_type == CT_TEXT && ct -> c_subtype != TEXT_PLAIN)
  4479. +             ct -> c_encoding = linelen == -1 ? CE_7BIT : CE_QUOTED;
  4480.   
  4481.           (void) fclose (in);
  4482.   
  4483. ***************
  4484. *** 5620,5635 ****
  4485.           break;
  4486.   
  4487.       case CT_TEXT:
  4488. !         if (ct -> c_subtype != TEXT_PLAIN
  4489. !             || (ct -> c_ctparams
  4490.                   && ((struct text *) ct -> c_ctparams) -> tx_charset
  4491. !                     != CHARSET_USASCII)) {
  4492.   quoted_printable: ;
  4493.           fprintf (out, "%s: %s\n\n", ENCODING_FIELD,
  4494.                "quoted-printable");
  4495.           (void) writeQuoted (ct, out);
  4496.           break;
  4497.           }
  4498.           /* else fall... */
  4499.   
  4500.       case CT_MESSAGE:
  4501. --- 5952,5972 ----
  4502.           break;
  4503.   
  4504.       case CT_TEXT:
  4505. !         if (ct -> c_ctparams
  4506.                   && ((struct text *) ct -> c_ctparams) -> tx_charset
  4507. !                     != CHARSET_USASCII) {
  4508.   quoted_printable: ;
  4509. +         if (checksw)
  4510. +             writeDigest (ct, out, 1);
  4511.           fprintf (out, "%s: %s\n\n", ENCODING_FIELD,
  4512.                "quoted-printable");
  4513.           (void) writeQuoted (ct, out);
  4514.           break;
  4515.           }
  4516. +         if (ct -> c_subtype != TEXT_PLAIN && ct -> c_encoding != CE_7BIT)
  4517. +         goto quoted_printable;
  4518. +         if (checksw)
  4519. +         goto quoted_printable;
  4520.           /* else fall... */
  4521.   
  4522.       case CT_MESSAGE:
  4523. ***************
  4524. *** 5656,5661 ****
  4525. --- 5993,6000 ----
  4526.           /* else fall... */
  4527.   
  4528.       default:
  4529. +         if (checksw)
  4530. +         writeDigest (ct, out, 0);
  4531.           fprintf (out, "%s: %s\n\n", ENCODING_FIELD, "base64");
  4532.           (void) writeBase64 (ct, out);
  4533.           break;
  4534. ***************
  4535. *** 5730,5756 ****
  4536.               n++;
  4537.               break;
  4538.   
  4539. !         case '@':
  4540. !         case '`':
  4541. !             if (ebcdicsw)
  4542.               goto three_print;
  4543. - one_print: ;
  4544.               (void) putc (*cp, out);
  4545.               n++;
  4546.               break;
  4547.   
  4548. -         default:
  4549. -             if (('!' <= *cp && *cp <= '$')
  4550. -                 || ('[' <= *cp && *cp <= '^')
  4551. -                 || ('{' <= *cp && *cp <= '~')) {
  4552. -             if (ebcdicsw)
  4553. -                 goto three_print;
  4554. -             goto one_print;
  4555. -             }
  4556. - 
  4557. -             if ('%' <= *cp && *cp <= 'z')
  4558. -             goto one_print;
  4559. -             /* else fall... */
  4560.           case '=':
  4561.   three_print: ;
  4562.               (void) fprintf (out, "=%02X", *cp & 0xff);
  4563. --- 6069,6081 ----
  4564.               n++;
  4565.               break;
  4566.   
  4567. !         default:
  4568. !             if (ebcdicsw && !ebcdicsafe[*cp & 0xff])
  4569.               goto three_print;
  4570.               (void) putc (*cp, out);
  4571.               n++;
  4572.               break;
  4573.   
  4574.           case '=':
  4575.   three_print: ;
  4576.               (void) fprintf (out, "=%02X", *cp & 0xff);
  4577. ***************
  4578. *** 5776,5782 ****
  4579.   
  4580.   /*   */
  4581.   
  4582. ! static char nib2b64[0x40f] =
  4583.       "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
  4584.   
  4585.   
  4586. --- 6101,6107 ----
  4587.   
  4588.   /*   */
  4589.   
  4590. ! static char nib2b64[0x40+1] =
  4591.       "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
  4592.   
  4593.   
  4594. ***************
  4595. *** 5847,5852 ****
  4596. --- 6172,6337 ----
  4597.       return OK;
  4598.   }
  4599.   
  4600. + /*   */
  4601. + 
  4602. + static int  writeDigest (ct, out, asciiP)
  4603. + register CT    ct;
  4604. + FILE   *out;
  4605. + int    asciiP;
  4606. + {
  4607. +     int        cc;
  4608. +     char    buffer[BUFSIZ];
  4609. +     register unsigned char *dp;
  4610. +     unsigned char  digest[16];
  4611. +     FILE   *in;
  4612. +     MD5_CTX mdContext;
  4613. + 
  4614. +     if ((in = fopen (ct -> c_file, "r")) == NULL)
  4615. +     adios (ct -> c_file, "unable to open for reading");
  4616. + 
  4617. +     MD5Init (&mdContext);
  4618. +     if (asciiP) {
  4619. +     while (fgets (buffer, sizeof buffer - 1, in)) {
  4620. +         register char *cp;
  4621. +         char    c;
  4622. + 
  4623. +         cp = buffer + strlen (buffer) - 1;
  4624. +         if ((c = *cp) == '\n')
  4625. +         *cp = '\0';
  4626. + 
  4627. +         MD5Update (&mdContext, (unsigned char *) buffer,
  4628. +                (unsigned int) strlen (buffer));
  4629. + 
  4630. +         if (c == '\n')
  4631. +         MD5Update (&mdContext, (unsigned char *) "\r\n", 2);
  4632. +     }
  4633. +     }
  4634. +     else
  4635. +     while ((cc = fread (buffer, sizeof *buffer, sizeof buffer, in)) > 0)
  4636. +         MD5Update (&mdContext, (unsigned char *) buffer,
  4637. +                (unsigned int) cc);
  4638. +     MD5Final (digest, &mdContext);
  4639. +     if (debugsw) {
  4640. +     unsigned char *ep;
  4641. + 
  4642. +     fprintf (stderr, "MD5 digest=");
  4643. +     for (ep = (dp = digest) + sizeof digest / sizeof digest[0];
  4644. +              dp < ep;
  4645. +              dp++)
  4646. +         fprintf (stderr, "%02x", *dp & 0xff);
  4647. +     fprintf (stderr, "\n");
  4648. +     }
  4649. + 
  4650. +     (void) fclose (in);
  4651. + 
  4652. +     fprintf (out, "%s: ", MD5_FIELD);
  4653. +     for (dp = digest, cc = sizeof digest / sizeof digest[0]; cc > 0; cc -= 3) {
  4654. +     unsigned long bits;
  4655. +     register char *bp;
  4656. +     char outbuf[4];
  4657. + 
  4658. +     bits = (*dp++ & 0xff) << 16;
  4659. +     if (cc > 1) {
  4660. +         bits |= (*dp++ & 0xff) << 8;
  4661. +         if (cc > 2)
  4662. +         bits |= *dp++ & 0xff;
  4663. +     }
  4664. + 
  4665. +     for (bp = outbuf + sizeof outbuf; bp > outbuf; bits >>= 6)
  4666. +         *--bp = nib2b64[bits & 0x3f];
  4667. +     if (cc < 3) {
  4668. +         outbuf[3] = '=';
  4669. +         if (cc < 2)
  4670. +         outbuf[2] = '=';
  4671. +     }
  4672. + 
  4673. +         (void) fwrite (outbuf, sizeof *outbuf, sizeof outbuf, out);
  4674. +     }
  4675. +     fprintf (out, "\n");
  4676. + }
  4677. + 
  4678. + /*   */
  4679. + 
  4680. + static int  readDigest (ct, cp)
  4681. + register CT    ct;
  4682. + register char *cp;
  4683. + {
  4684. +     int        bitno,
  4685. +         skip;
  4686. +     unsigned long    bits;
  4687. +     char   *bp = cp;
  4688. +     register unsigned char *dp;
  4689. +     unsigned char   value,
  4690. +                    *ep,
  4691. +            *b = (unsigned char *) &bits,
  4692. +            *b1 = &b[endian > 0 ? 1 : 2],
  4693. +            *b2 = &b[endian > 0 ? 2 : 1],
  4694. +            *b3 = &b[endian > 0 ? 3 : 0];
  4695. + 
  4696. +     bitno = 18, bits = 0L, skip = 0;
  4697. +     for (ep = (dp = ct -> c_digest)
  4698. +              + sizeof ct -> c_digest / sizeof ct -> c_digest[0];
  4699. +          *cp;
  4700. +          cp++)
  4701. +     switch (*cp) {
  4702. +         default:
  4703. +             if (skip
  4704. +                 || (*cp & 0x80)
  4705. +                 || (value = b642nib[*cp & 0x7f]) > 0x3f) {
  4706. +             if (debugsw)
  4707. +             fprintf (stderr, "invalid BASE64 encoding\n");
  4708. +             return NOTOK;
  4709. +         }
  4710. + 
  4711. +         bits |= value << bitno;
  4712. + test_end: ;
  4713. +         if ((bitno -= 6) < 0) {
  4714. +             if (dp + (3 - skip) > ep)
  4715. +             goto invalid_digest;
  4716. +             *dp++ = *b1;
  4717. +             if (skip < 2) {
  4718. +             *dp++ = *b2;
  4719. +             if (skip < 1)
  4720. +                 *dp++ = *b3;
  4721. +             }
  4722. +             bitno = 18, bits = 0L, skip = 0;
  4723. +         }
  4724. +         break;
  4725. + 
  4726. +         case '=':
  4727. +         if (++skip > 3)
  4728. +             goto self_delimiting;
  4729. +         goto test_end;
  4730. +     }
  4731. +     if (bitno != 18) {
  4732. +     if (debugsw)
  4733. +         fprintf (stderr, "premature ending (bitno %d)\n", bitno);
  4734. + 
  4735. +     return NOTOK;
  4736. +     }
  4737. + self_delimiting: ;
  4738. +     if (dp != ep) {
  4739. + invalid_digest: ;
  4740. +     if (debugsw) {
  4741. +         while (*cp)
  4742. +         cp++;
  4743. +         fprintf (stderr, "invalid MD5 digest (got %d octets)\n",
  4744. +              cp - bp);
  4745. +     }
  4746. + 
  4747. +     return NOTOK;
  4748. +     }
  4749. + 
  4750. +     if (debugsw) {
  4751. +     fprintf (stderr, "MD5 digest=");
  4752. +     for (dp = ct -> c_digest; dp < ep; dp++)
  4753. +         fprintf (stderr, "%02x", *dp & 0xff);
  4754. +     fprintf (stderr, "\n");
  4755. +     }
  4756. + 
  4757. +     return OK;
  4758. + }
  4759. + 
  4760.   /*     VIAMAIL */
  4761.   
  4762.   #include "../zotnet/tws.h"
  4763. ***************
  4764. *** 5865,5870 ****
  4765. --- 6350,6356 ----
  4766.           nparts,
  4767.           status;
  4768.       long    pos;
  4769. +     long    offset;
  4770.       char    tmpfil[BUFSIZ];
  4771.       struct stat st;
  4772.       FILE   *fp;
  4773. ***************
  4774. *** 5888,5893 ****
  4775. --- 6374,6380 ----
  4776.       fprintf (fp, "From: %s\n", fromsw), nlines++;
  4777.       }
  4778.       fprintf (fp, "%s: %s\n", VRSN_FIELD, VRSN_VALUE), nlines++;
  4779. +     offset = ftell (fp);
  4780.       fprintf (fp, "%s: application/octet-stream", TYPE_FIELD);
  4781.       if (parmsw)
  4782.       fprintf (fp, "; %s", parmsw);
  4783. ***************
  4784. *** 5910,5922 ****
  4785.       nparts = (nlines + (LPERMSG - 1)) / LPERMSG;
  4786.   
  4787.       if (nparts <= 1)
  4788. !     status = via_post (tmpfil);
  4789.       else {
  4790.       int    partno;
  4791.       long    clock;
  4792.       char    buffer[BUFSIZ],
  4793.           msgid[BUFSIZ];
  4794. !     
  4795.       if (verbosw) {
  4796.           printf ("sending binary image as %d partial messages\n", nparts);
  4797.           (void) fflush (stdout);
  4798. --- 6397,6409 ----
  4799.       nparts = (nlines + (LPERMSG - 1)) / LPERMSG;
  4800.   
  4801.       if (nparts <= 1)
  4802. !     status = via_post (tmpfil, 0);
  4803.       else {
  4804.       int    partno;
  4805.       long    clock;
  4806.       char    buffer[BUFSIZ],
  4807.           msgid[BUFSIZ];
  4808. ! 
  4809.       if (verbosw) {
  4810.           printf ("sending binary image as %d partial messages\n", nparts);
  4811.           (void) fflush (stdout);
  4812. ***************
  4813. *** 5925,5935 ****
  4814.       (void) time (&clock);
  4815.       (void) sprintf (msgid, "<%d.%ld@%s>", getpid (), clock, LocalName ());
  4816.   
  4817. !     (void) fseek (fp, 0L, 0);
  4818. !     if (!fgets (buffer, sizeof buffer, fp)
  4819. !             || !fgets (buffer, sizeof buffer, fp)
  4820. !             || (subjsw && !fgets (buffer, sizeof buffer, fp)))
  4821. !         adios (NULLCP, "premature eof");
  4822.       for (partno = 1; partno <= nparts; partno++) {
  4823.           int        lineno;
  4824.           char    tmpdrf[BUFSIZ];
  4825. --- 6412,6418 ----
  4826.       (void) time (&clock);
  4827.       (void) sprintf (msgid, "<%d.%ld@%s>", getpid (), clock, LocalName ());
  4828.   
  4829. !     (void) fseek (fp, offset, 0);
  4830.       for (partno = 1; partno <= nparts; partno++) {
  4831.           int        lineno;
  4832.           char    tmpdrf[BUFSIZ];
  4833. ***************
  4834. *** 5962,5967 ****
  4835. --- 6445,6451 ----
  4836.   
  4837.           (void) fputs (buffer, out);
  4838.           }
  4839. +         offset = ftell (fp);
  4840.   
  4841.           if (fflush (out))
  4842.           adios (tmpdrf, "error writing to");
  4843. ***************
  4844. *** 5968,5987 ****
  4845.   
  4846.           (void) fclose (out);
  4847.   
  4848. !         if (slowsw > 0 && 1 < partno && partno < nparts) {
  4849.           if (verbosw) {
  4850.               printf ("pausing %d seconds before sending part %d...\n",
  4851. !                 slowsw, partno);
  4852.               (void) fflush (stdout);
  4853.           }
  4854.   
  4855.           sleep ((unsigned) slowsw);
  4856.           }
  4857. - 
  4858. -         status = via_post (tmpdrf);
  4859. -         (void) unlink (tmpdrf);
  4860. -         if (status)
  4861. -         break;
  4862.       }
  4863.       }
  4864.   
  4865. --- 6452,6471 ----
  4866.   
  4867.           (void) fclose (out);
  4868.   
  4869. !         status = via_post (tmpdrf, slowsw == 0);
  4870. !         (void) unlink (tmpdrf);
  4871. !         if (status)
  4872. !         break;
  4873. ! 
  4874. !         if (slowsw > 0 && partno < nparts) {
  4875.           if (verbosw) {
  4876.               printf ("pausing %d seconds before sending part %d...\n",
  4877. !                 slowsw, partno + 1);
  4878.               (void) fflush (stdout);
  4879.           }
  4880.   
  4881.           sleep ((unsigned) slowsw);
  4882.           }
  4883.       }
  4884.       }
  4885.   
  4886. ***************
  4887. *** 5993,6000 ****
  4888.   
  4889.   /*   */
  4890.   
  4891. ! static int  via_post (file)
  4892.   char   *file;
  4893.   {
  4894.       int        child_id,
  4895.           i;
  4896. --- 6477,6485 ----
  4897.   
  4898.   /*   */
  4899.   
  4900. ! static int  via_post (file, queued)
  4901.   char   *file;
  4902. + int    queued;
  4903.   {
  4904.       int        child_id,
  4905.           i;
  4906. ***************
  4907. *** 6007,6013 ****
  4908.           /* NOTREACHED */
  4909.   
  4910.       case OK:
  4911. !         (void) execlp (postproc, r1bindex (postproc, '/'), file, NULLCP);
  4912.           fprintf (stderr, "unable to exec ");
  4913.           perror (postproc);
  4914.           _exit (-1);
  4915. --- 6492,6499 ----
  4916.           /* NOTREACHED */
  4917.   
  4918.       case OK:
  4919. !         (void) execlp (postproc, r1bindex (postproc, '/'), file,
  4920. !                queued ? "-queued" : NULLCP, NULLCP);
  4921.           fprintf (stderr, "unable to exec ");
  4922.           perror (postproc);
  4923.           _exit (-1);
  4924. *** ../mh-6.8/uip/msgchk.c    Tue Dec 15 08:56:00 1992
  4925. --- uip/msgchk.c    Fri Aug 20 08:52:59 1993
  4926. ***************
  4927. *** 1,6 ****
  4928.   /* msgchk.c - check for mail */
  4929.   #ifndef    lint
  4930. ! static char ident[] = "@(#)$Id: msgchk.c,v 1.11 1992/12/15 00:20:22 jromine Exp $";
  4931.   #endif    /* lint */
  4932.   
  4933.   #include "../h/mh.h"
  4934. --- 1,6 ----
  4935.   /* msgchk.c - check for mail */
  4936.   #ifndef    lint
  4937. ! static char ident[] = "@(#)$Id: msgchk.c,v 1.12 1993/08/20 15:52:41 jromine Exp $";
  4938.   #endif    /* lint */
  4939.   
  4940.   #include "../h/mh.h"
  4941. ***************
  4942. *** 392,402 ****
  4943.               status;
  4944.       char   *pass;
  4945.   
  4946. !     if (rpop) {
  4947. !     if (user == NULL)
  4948. !         user = getusr ();
  4949.       pass = getusr ();
  4950. -     }
  4951.       else
  4952.       ruserpass (host, &user, &pass);
  4953.   
  4954. --- 392,401 ----
  4955.               status;
  4956.       char   *pass;
  4957.   
  4958. !     if (user == NULL)
  4959. !     user = getusr ();
  4960. !     if (rpop > 0)
  4961.       pass = getusr ();
  4962.       else
  4963.       ruserpass (host, &user, &pass);
  4964.   
  4965. *** ../mh-6.8/uip/post.c    Tue Dec 15 08:56:03 1992
  4966. --- uip/post.c    Fri Aug 20 08:53:39 1993
  4967. ***************
  4968. *** 1,6 ****
  4969.   /* post.c - enter messages into the transport system */
  4970.   #ifndef    lint
  4971. ! static char ident[] = "@(#)$Id: post.c,v 2.21 1992/12/15 00:20:22 jromine Exp $";
  4972.   #endif    /* lint */
  4973.   
  4974.   #include "../h/mh.h"
  4975. --- 1,6 ----
  4976.   /* post.c - enter messages into the transport system */
  4977.   #ifndef    lint
  4978. ! static char ident[] = "@(#)$Id: post.c,v 2.22 1993/08/20 15:53:20 jromine Exp $";
  4979.   #endif    /* lint */
  4980.   
  4981.   #include "../h/mh.h"
  4982. ***************
  4983. *** 149,154 ****
  4984. --- 149,157 ----
  4985.   #define    PARTSW    34
  4986.       "partno", -6,
  4987.   
  4988. + #define    QUEUESW 35
  4989. +     "queued", -6,
  4990. + 
  4991.       NULL, 0
  4992.   };
  4993.   
  4994. ***************
  4995. *** 327,332 ****
  4996. --- 330,337 ----
  4997.   static char    *fill_in = NULLCP;
  4998.   static char    *partno = NULLCP;
  4999.   
  5000. + static    int    queued = 0;
  5001. + 
  5002.   long    lseek (), time ();
  5003.   
  5004.   static    putfmt(), start_headers(), finish_headers(), putgrp(), pl();
  5005. ***************
  5006. *** 565,570 ****
  5007. --- 570,579 ----
  5008.               if (!(partno = *argp++) || *partno == '-')
  5009.               adios (NULLCP, "missing argument to %s", argp[-2]);
  5010.               continue;
  5011. + 
  5012. +         case QUEUESW:
  5013. +             queued++;
  5014. +             continue;
  5015.           }
  5016.       if (msg)
  5017.           adios (NULLCP, "only one message at a time!");
  5018. ***************
  5019. *** 1403,1409 ****
  5020.   #endif    /* MMDFMTS */
  5021.   #ifdef    SENDMTS
  5022.       if (!whomsw || checksw)
  5023. !     if (rp_isbad (retval = sm_init (clientsw, serversw, 0, 0, snoop))
  5024.           || rp_isbad (retval = sm_winit (smtpmode, from)))
  5025.           die (NULLCP, "problem initializing server; %s",
  5026.               rp_string (retval));
  5027. --- 1412,1418 ----
  5028.   #endif    /* MMDFMTS */
  5029.   #ifdef    SENDMTS
  5030.       if (!whomsw || checksw)
  5031. !     if (rp_isbad (retval = sm_init (clientsw, serversw, 0, 0, snoop, 0, 0))
  5032.           || rp_isbad (retval = sm_winit (smtpmode, from)))
  5033.           die (NULLCP, "problem initializing server; %s",
  5034.               rp_string (retval));
  5035. ***************
  5036. *** 1476,1482 ****
  5037.   int     bccque,
  5038.           talk;
  5039.   {
  5040. !     int     fd;
  5041.   #ifndef    MHMTS
  5042.       int        retval;
  5043.   #ifdef    MMDFMTS
  5044. --- 1485,1492 ----
  5045.   int     bccque,
  5046.           talk;
  5047.   {
  5048. !     int     fd,
  5049. !             onex = !(msgflags & MINV) || bccque;
  5050.   #ifndef    MHMTS
  5051.       int        retval;
  5052.   #ifdef    MMDFMTS
  5053. ***************
  5054. *** 1511,1517 ****
  5055.   #endif    /* RP_NS */
  5056.   #endif    /* MMDFMTS */
  5057.   #ifdef    SENDMTS
  5058. !     if (rp_isbad (retval = sm_init (clientsw, serversw, watch, verbose, snoop))
  5059.           || rp_isbad (retval = sm_winit (smtpmode, from)))
  5060.       die (NULLCP, "problem initializing server; %s", rp_string (retval));
  5061.   #endif    /* SENDMTS */
  5062. --- 1521,1528 ----
  5063.   #endif    /* RP_NS */
  5064.   #endif    /* MMDFMTS */
  5065.   #ifdef    SENDMTS
  5066. !     if (rp_isbad (retval = sm_init (clientsw, serversw, watch, verbose, snoop,
  5067. !                     onex, queued))
  5068.           || rp_isbad (retval = sm_winit (smtpmode, from)))
  5069.       die (NULLCP, "problem initializing server; %s", rp_string (retval));
  5070.   #endif    /* SENDMTS */
  5071. ***************
  5072. *** 1541,1547 ****
  5073.       (void) mm_end (OK);
  5074.   #endif    /* MMDFMTS */
  5075.   #ifdef    SENDMTS
  5076. !     (void) sm_end (!(msgflags & MINV) || bccque ? OK : DONE);
  5077.   #endif    /* SENDMTS */
  5078.   
  5079.       sigoff ();
  5080. --- 1552,1558 ----
  5081.       (void) mm_end (OK);
  5082.   #endif    /* MMDFMTS */
  5083.   #ifdef    SENDMTS
  5084. !     (void) sm_end (onex ? OK : DONE);
  5085.   #endif    /* SENDMTS */
  5086.   
  5087.       sigoff ();
  5088. ***************
  5089. *** 1667,1673 ****
  5090.   #endif    /* RP_NS */
  5091.   #endif    /* MMDFMTS */
  5092.   #ifdef    SENDMTS
  5093. !     if (rp_isbad (retval = sm_init (clientsw, serversw, watch, verbose, snoop))
  5094.           || rp_isbad (retval = sm_winit (smtpmode, from)))
  5095.       die (NULLCP, "problem initializing server; %s", rp_string (retval));
  5096.   #endif    /* SENDMTS */
  5097. --- 1678,1685 ----
  5098.   #endif    /* RP_NS */
  5099.   #endif    /* MMDFMTS */
  5100.   #ifdef    SENDMTS
  5101. !     if (rp_isbad (retval = sm_init (clientsw, serversw, watch, verbose, snoop,
  5102. !                     0, 0))
  5103.           || rp_isbad (retval = sm_winit (smtpmode, from)))
  5104.       die (NULLCP, "problem initializing server; %s", rp_string (retval));
  5105.   #endif    /* SENDMTS */
  5106. *** ../mh-6.8/uip/replsbr.c    Tue Dec 15 08:56:04 1992
  5107. --- uip/replsbr.c    Fri Feb 26 13:59:31 1993
  5108. ***************
  5109. *** 1,6 ****
  5110.   /* replsbr.c - routines to help repl along... */
  5111.   #ifndef    lint
  5112. ! static char ident[] = "@(#)$Id: replsbr.c,v 1.13 1992/12/15 00:20:22 jromine Exp $";
  5113.   #endif    /* lint */
  5114.   
  5115.   #include "../h/mh.h"
  5116. --- 1,6 ----
  5117.   /* replsbr.c - routines to help repl along... */
  5118.   #ifndef    lint
  5119. ! static char ident[] = "@(#)$Id: replsbr.c,v 1.14 1993/02/26 21:59:28 jromine Exp $";
  5120.   #endif    /* lint */
  5121.   
  5122.   #include "../h/mh.h"
  5123. ***************
  5124. *** 422,427 ****
  5125. --- 422,431 ----
  5126.           (void) dup2 (fileno (out), fileno (stdout));
  5127.           closefds (3);
  5128.   
  5129. + #ifdef _FSTDIO
  5130. +         /* <sigh> the code assumed that rewind does this. */
  5131. +         lseek (fileno(stdin), 0, SEEK_SET);
  5132. + #endif
  5133.           execlp (mhlproc, mhl, "-form", filter, "-noclear", NULLCP);
  5134.           fprintf (stderr, "unable to exec ");
  5135.           perror (mhlproc);
  5136. *** ../mh-6.8/uip/sbboards.c    Tue Dec 15 08:56:05 1992
  5137. --- uip/sbboards.c    Fri Aug 20 08:53:59 1993
  5138. ***************
  5139. *** 4,10 ****
  5140.   /* spop.c - MH style mailer to write to a POP subscriber */
  5141.   #endif    SPOP
  5142.   #ifndef    lint
  5143. ! static char ident[] = "@(#)$Id: sbboards.c,v 1.6 1992/11/24 21:00:41 jromine Exp $";
  5144.   #endif    lint
  5145.   
  5146.   #ifndef    SPOP
  5147. --- 4,10 ----
  5148.   /* spop.c - MH style mailer to write to a POP subscriber */
  5149.   #endif    SPOP
  5150.   #ifndef    lint
  5151. ! static char ident[] = "@(#)$Id: sbboards.c,v 1.8 1993/08/20 15:53:49 jromine Exp $";
  5152.   #endif    lint
  5153.   
  5154.   #ifndef    SPOP
  5155. ***************
  5156. *** 109,114 ****
  5157. --- 109,123 ----
  5158.   #endif    /* SYS5 */
  5159.   #endif
  5160.   
  5161. + #ifndef    SPOP
  5162. + static int    mbx_init();
  5163. + #endif
  5164. + #ifdef    DISTRIBUTE
  5165. + static int     distribute(), notify(), encap(),
  5166. +         dst_init(), dst_text(),
  5167. +         dst_end(), dst_lose(), dst_adrs();
  5168. + #endif
  5169. + 
  5170.   /* hack */
  5171.   #define    adios    my_adios
  5172.   static    localmail(), arginit();
  5173. ***************
  5174. *** 248,254 ****
  5175.   {
  5176.       int     retval;
  5177.   
  5178. !     if (rp_isbad (retval = sm_init (NULLCP, NULLCP, 0, 0, 0))
  5179.           || rp_isbad (retval = sm_winit (S_MAIL, bb_from)))
  5180.       return lose ("problem initializing SendMail; %s",
  5181.           rp_string (retval));
  5182. --- 257,263 ----
  5183.   {
  5184.       int     retval;
  5185.   
  5186. !     if (rp_isbad (retval = sm_init (NULLCP, NULLCP, 0, 0, 0, 0, 0))
  5187.           || rp_isbad (retval = sm_winit (S_MAIL, bb_from)))
  5188.       return lose ("problem initializing SendMail; %s",
  5189.           rp_string (retval));
  5190. ***************
  5191. *** 380,386 ****
  5192.       if (bb_fderr == NOTOK)
  5193.       return;
  5194.   
  5195. !     if (rp_isbad (sm_init (NULLCP, NULLCP, 0, 0, 0))
  5196.           || rp_isbad (sm_winit (S_MAIL, bb_from)))
  5197.       goto sm_err;
  5198.   
  5199. --- 389,395 ----
  5200.       if (bb_fderr == NOTOK)
  5201.       return;
  5202.   
  5203. !     if (rp_isbad (sm_init (NULLCP, NULLCP, 0, 0, 0, 0, 0))
  5204.           || rp_isbad (sm_winit (S_MAIL, bb_from)))
  5205.       goto sm_err;
  5206.   
  5207. *** ../mh-6.8/uip/scansbr.c    Tue Dec 15 08:56:05 1992
  5208. --- uip/scansbr.c    Fri Aug 20 08:54:16 1993
  5209. ***************
  5210. *** 1,6 ****
  5211.   /* scansbr.c - routines to help scan along... */
  5212.   #ifndef    lint
  5213. ! static char ident[] = "@(#)$Id: scansbr.c,v 1.13 1992/12/15 00:20:22 jromine Exp $";
  5214.   #endif    /* lint */
  5215.   
  5216.   #include "../h/mh.h"
  5217. --- 1,6 ----
  5218.   /* scansbr.c - routines to help scan along... */
  5219.   #ifndef    lint
  5220. ! static char ident[] = "@(#)$Id: scansbr.c,v 1.15 1993/08/20 15:54:08 jromine Exp $";
  5221.   #endif    /* lint */
  5222.   
  5223.   #include "../h/mh.h"
  5224. ***************
  5225. *** 13,18 ****
  5226. --- 13,22 ----
  5227.   #include <sys/types.h>
  5228.   #include <sys/stat.h>
  5229.   
  5230. + #ifdef _FSTDIO
  5231. + #define       _ptr    _p              /* Gag */
  5232. + #define       _cnt    _w              /* Wretch */
  5233. + #endif
  5234.   
  5235.   #define MAXSCANL 256        /* longest possible scan line */
  5236.   #define SBUFSIZ 512        /* buffer size for content part of header
  5237. ***************
  5238. *** 81,90 ****
  5239.       char    *scnmsg;
  5240.       FILE    *scnout;
  5241.       char    name[NAMESZ];
  5242. !     static  int slwidth;
  5243.   
  5244.       /* first-time only initialization */
  5245.       if (scanl == NULLCP) {
  5246.       if (width == 0) {
  5247.           if ((width = sc_width ()) < WIDTH/2)
  5248.           width = WIDTH/2;
  5249. --- 85,97 ----
  5250.       char    *scnmsg;
  5251.       FILE    *scnout;
  5252.       char    name[NAMESZ];
  5253. !     static  int rlwidth,
  5254. !             slwidth;
  5255.   
  5256.       /* first-time only initialization */
  5257.       if (scanl == NULLCP) {
  5258. +     int    bigwid;
  5259. + 
  5260.       if (width == 0) {
  5261.           if ((width = sc_width ()) < WIDTH/2)
  5262.           width = WIDTH/2;
  5263. ***************
  5264. *** 126,133 ****
  5265.       if (used_buf == NULL)
  5266.           adios (NULLCP, "unable to allocate component buffer stack");
  5267.       used_buf += ncomps+1; *--used_buf = 0;
  5268.       for (i = ncomps; i--; )
  5269. !         if ((*nxtbuf++ = malloc( SBUFSIZ )) == NULL)
  5270.           adios (NULLCP, "unable to allocate component buffer");
  5271.       }
  5272.       /* each-message initialization */
  5273. --- 133,141 ----
  5274.       if (used_buf == NULL)
  5275.           adios (NULLCP, "unable to allocate component buffer stack");
  5276.       used_buf += ncomps+1; *--used_buf = 0;
  5277. +     rlwidth = bodycomp && (width > SBUFSIZ) ? width : SBUFSIZ;
  5278.       for (i = ncomps; i--; )
  5279. !         if ((*nxtbuf++ = malloc( rlwidth )) == NULL)
  5280.           adios (NULLCP, "unable to allocate component buffer");
  5281.       }
  5282.       /* each-message initialization */
  5283. ***************
  5284. *** 142,148 ****
  5285.        * get the first field.  If the msg is non-empty and we're doing
  5286.        * an "inc", open the output file.
  5287.        */
  5288. !     if ((state = m_getfld (FLD, name, tmpbuf, SBUFSIZ, inb)) == FILEEOF)
  5289.       if (ferror(inb)) {
  5290.           advise("read", "unable to"); /* "read error" */
  5291.           return SCNFAT;
  5292. --- 150,156 ----
  5293.        * get the first field.  If the msg is non-empty and we're doing
  5294.        * an "inc", open the output file.
  5295.        */
  5296. !     if ((state = m_getfld (FLD, name, tmpbuf, rlwidth, inb)) == FILEEOF)
  5297.       if (ferror(inb)) {
  5298.           advise("read", "unable to"); /* "read error" */
  5299.           return SCNFAT;
  5300. ***************
  5301. *** 168,174 ****
  5302.       }
  5303.   
  5304.       /* scan - main loop */
  5305. !     for (compnum = 1; ; state = m_getfld (state, name, tmpbuf, SBUFSIZ, inb)) {
  5306.       switch (state) {
  5307.           case FLD: 
  5308.           case FLDPLUS: 
  5309. --- 176,182 ----
  5310.       }
  5311.   
  5312.       /* scan - main loop */
  5313. !     for (compnum = 1; ; state = m_getfld (state, name, tmpbuf, rlwidth, inb)) {
  5314.       switch (state) {
  5315.           case FLD: 
  5316.           case FLDPLUS: 
  5317. ***************
  5318. *** 203,209 ****
  5319.               } while (cptr = cptr->c_next);
  5320.   
  5321.           while (state == FLDPLUS) {
  5322. !             state = m_getfld (state, name, tmpbuf, SBUFSIZ, inb);
  5323.               if (outnum)
  5324.               FPUTS (tmpbuf);
  5325.           }
  5326. --- 211,217 ----
  5327.               } while (cptr = cptr->c_next);
  5328.   
  5329.           while (state == FLDPLUS) {
  5330. !             state = m_getfld (state, name, tmpbuf, rlwidth, inb);
  5331.               if (outnum)
  5332.               FPUTS (tmpbuf);
  5333.           }
  5334. *** ../mh-6.8/uip/sendsbr.c    Tue Dec 15 08:56:06 1992
  5335. --- uip/sendsbr.c    Fri Aug 20 08:55:15 1993
  5336. ***************
  5337. *** 1,6 ****
  5338.   /* sendsbr.c - routines to help WhatNow/Send along */
  5339.   #ifndef    lint
  5340. ! static char ident[] = "@(#)$Id: sendsbr.c,v 2.12 1992/12/15 00:20:22 jromine Exp $";
  5341.   #endif    /* lint */
  5342.   
  5343.   #include "../h/mh.h"
  5344. --- 1,6 ----
  5345.   /* sendsbr.c - routines to help WhatNow/Send along */
  5346.   #ifndef    lint
  5347. ! static char ident[] = "@(#)$Id: sendsbr.c,v 2.13 1993/08/20 15:54:44 jromine Exp $";
  5348.   #endif    /* lint */
  5349.   
  5350.   #include "../h/mh.h"
  5351. ***************
  5352. *** 99,112 ****
  5353.           || distfile
  5354.           || stat (drft, &sts) == NOTOK
  5355.           || sts.st_size < CPERMSG) {
  5356.       splitsw = -1;
  5357.       return sendaux2 (vec, vecp, drft, st);
  5358.       }
  5359. -     status = OK;
  5360.   
  5361. -     vec[vecp++] = "-partno";
  5362. -     vec[vecp++] = partnum;
  5363. - 
  5364.       if ((in = fopen (drft, "r")) == NULL)
  5365.       adios (drft, "unable to open for reading");
  5366.   
  5367. --- 99,109 ----
  5368.           || distfile
  5369.           || stat (drft, &sts) == NOTOK
  5370.           || sts.st_size < CPERMSG) {
  5371. + one_shot: ;
  5372.       splitsw = -1;
  5373.       return sendaux2 (vec, vecp, drft, st);
  5374.       }
  5375.   
  5376.       if ((in = fopen (drft, "r")) == NULL)
  5377.       adios (drft, "unable to open for reading");
  5378.   
  5379. ***************
  5380. *** 119,125 ****
  5381.           case FLDEOF:
  5382.               compnum++;
  5383.   
  5384. !         if (uleq (name, VRSN_FIELD) || uleq (name, "Message-ID")) {
  5385.               while (state == FLDPLUS)
  5386.               state = m_getfld (state, name, buffer, sizeof buffer,
  5387.                         in);
  5388. --- 116,124 ----
  5389.           case FLDEOF:
  5390.               compnum++;
  5391.   
  5392. !         if (uleq (name, VRSN_FIELD)
  5393. !                 || uleq (name, "Encrypted")
  5394. !                 || uleq (name, "Message-ID")) {
  5395.               while (state == FLDPLUS)
  5396.               state = m_getfld (state, name, buffer, sizeof buffer,
  5397.                         in);
  5398. ***************
  5399. *** 162,167 ****
  5400. --- 161,168 ----
  5401.   
  5402.       break;
  5403.       }
  5404. +     if (cp == NULL)
  5405. +     adios (NULLCP, "headers missing from draft");
  5406.   
  5407.       nparts = 1, pos = start;
  5408.       while (fgets (buffer, sizeof buffer - 1, in)) {
  5409. ***************
  5410. *** 170,179 ****
  5411. --- 171,196 ----
  5412.       if ((pos += (len = strlen (buffer))) > CPERMSG)
  5413.           nparts++, pos = len;
  5414.       }
  5415. +     if (nparts == 1) {
  5416. +     free (cp);
  5417. +     if (dp)
  5418. +         free (dp);
  5419. + 
  5420. +     (void) fclose (in);
  5421. + 
  5422. +     goto one_shot;
  5423. +     }
  5424. + 
  5425.       if (!pushsw) {
  5426.       printf ("Sending as %d Partial Messages\n", nparts);
  5427.       (void) fflush (stdout);
  5428.       }
  5429. +     status = OK;
  5430. + 
  5431. +     vec[vecp++] = "-partno";
  5432. +     vec[vecp++] = partnum;
  5433. +     if (splitsw == 0)
  5434. +     vec[vecp++] = "-queued";
  5435.   
  5436.       (void) time (&clock);
  5437.       (void) sprintf (msgid, "<%d.%ld@%s>", getpid (), clock, LocalName ());
  5438. *** ../mh-6.8/uip/spop.c    Tue Dec 15 08:56:07 1992
  5439. --- uip/spop.c    Fri Aug 20 08:55:28 1993
  5440. ***************
  5441. *** 4,10 ****
  5442.   /* spop.c - MH style mailer to write to a POP subscriber */
  5443.   #endif    SPOP
  5444.   #ifndef    lint
  5445. ! static char ident[] = "@(#)$Id: spop.c,v 1.6 1992/11/04 01:04:35 jromine Exp $";
  5446.   #endif    lint
  5447.   
  5448.   #ifndef    SPOP
  5449. --- 4,10 ----
  5450.   /* spop.c - MH style mailer to write to a POP subscriber */
  5451.   #endif    SPOP
  5452.   #ifndef    lint
  5453. ! static char ident[] = "@(#)$Id: spop.c,v 1.7 1993/08/20 15:55:23 jromine Exp $";
  5454.   #endif    lint
  5455.   
  5456.   #ifndef    SPOP
  5457. ***************
  5458. *** 248,254 ****
  5459.   {
  5460.       int     retval;
  5461.   
  5462. !     if (rp_isbad (retval = sm_init (NULLCP, NULLCP, 0, 0, 0))
  5463.           || rp_isbad (retval = sm_winit (S_MAIL, bb_from)))
  5464.       return lose ("problem initializing SendMail; %s",
  5465.           rp_string (retval));
  5466. --- 248,254 ----
  5467.   {
  5468.       int     retval;
  5469.   
  5470. !     if (rp_isbad (retval = sm_init (NULLCP, NULLCP, 0, 0, 0, 0, 0))
  5471.           || rp_isbad (retval = sm_winit (S_MAIL, bb_from)))
  5472.       return lose ("problem initializing SendMail; %s",
  5473.           rp_string (retval));
  5474. ***************
  5475. *** 380,386 ****
  5476.       if (bb_fderr == NOTOK)
  5477.       return;
  5478.   
  5479. !     if (rp_isbad (sm_init (NULLCP, NULLCP, 0, 0, 0))
  5480.           || rp_isbad (sm_winit (S_MAIL, bb_from)))
  5481.       goto sm_err;
  5482.   
  5483. --- 380,386 ----
  5484.       if (bb_fderr == NOTOK)
  5485.       return;
  5486.   
  5487. !     if (rp_isbad (sm_init (NULLCP, NULLCP, 0, 0, 0, 0, 0))
  5488.           || rp_isbad (sm_winit (S_MAIL, bb_from)))
  5489.       goto sm_err;
  5490.   
  5491. *** ../mh-6.8/uip/vmh.c    Tue Dec 15 08:56:08 1992
  5492. --- uip/vmh.c    Fri Feb 26 14:00:35 1993
  5493. ***************
  5494. *** 1,6 ****
  5495.   /* vmh.c - visual front-end to mh */
  5496.   #ifndef    lint
  5497. ! static char ident[] = "@(#)$Id: vmh.c,v 1.18 1992/12/15 00:20:22 jromine Exp $";
  5498.   #endif    /* lint */
  5499.   #if defined(SYS5) && !defined(TERMINFO)
  5500.   /*
  5501. --- 1,6 ----
  5502.   /* vmh.c - visual front-end to mh */
  5503.   #ifndef    lint
  5504. ! static char ident[] = "@(#)$Id: vmh.c,v 1.19 1993/02/26 22:00:33 jromine Exp $";
  5505.   #endif    /* lint */
  5506.   #if defined(SYS5) && !defined(TERMINFO)
  5507.   /*
  5508. ***************
  5509. *** 59,64 ****
  5510. --- 59,75 ----
  5511.   #include <termio.h>
  5512.   #define    TCGETATTR        /* tcgetattr() */
  5513.   #endif
  5514. + #ifdef    BSD44
  5515. + #define    USE_OLD_TTY
  5516. + #define    _maxx    maxx        /* curses.h */
  5517. + #define    _maxy    maxy
  5518. + #define    _curx    curx        /* curses.h */
  5519. + #define    _cury    cury
  5520. + void     __cputchar __P((int));
  5521. + #undef    _putchar
  5522. + #define    _putchar    __cputchar
  5523. + #include <sys/ioctl.h>        /* sgttyb */
  5524. + #endif
  5525.   
  5526.   #define    ALARM    ((unsigned int) 10)
  5527.   #define    PAUSE    ((unsigned int) 2)
  5528. ***************
  5529. *** 161,167 ****
  5530.   #endif    /* TIOCGLTC */
  5531.   
  5532.   
  5533. ! #ifndef    SYS5
  5534.   int    _putchar ();
  5535.   #endif    /* not SYS5 */
  5536.   #ifdef    SIGTSTP
  5537. --- 172,178 ----
  5538.   #endif    /* TIOCGLTC */
  5539.   
  5540.   
  5541. ! #if !defined(SYS5) && !defined(BSD44)
  5542.   int    _putchar ();
  5543.   #endif    /* not SYS5 */
  5544.   #ifdef    SIGTSTP
  5545. ***************
  5546. *** 1122,1128 ****
  5547. --- 1133,1143 ----
  5548.       adios (NULLCP, "unable to allocate line storage");
  5549.   
  5550.       lp -> l_no = (ltail ? ltail -> l_no : 0) + 1;
  5551. + #ifndef    BSD44
  5552.       lp -> l_buf = getcpy (w -> _y[w -> _cury]);
  5553. + #else
  5554. +     lp -> l_buf = getcpy (w -> lines[w -> _cury]->line);
  5555. + #endif
  5556.       for (cp = lp -> l_buf + strlen (lp -> l_buf) - 1; cp >= lp -> l_buf; cp--)
  5557.       if (isspace (*cp))
  5558.           *cp = 0;
  5559. *** ../mh-6.8/zotnet/mts/client.c    Tue Dec 15 08:56:18 1992
  5560. --- zotnet/mts/client.c    Fri Aug 20 08:55:48 1993
  5561. ***************
  5562. *** 1,6 ****
  5563.   /* client.c - connect to a server */
  5564.   #ifndef    lint
  5565. ! static char ident[] = "@(#)$Id: client.c,v 1.19 1992/12/15 00:20:22 jromine Exp $";
  5566.   #endif    /* lint */
  5567.   
  5568.   #if    defined(SYS5) && defined(AUX)
  5569. --- 1,6 ----
  5570.   /* client.c - connect to a server */
  5571.   #ifndef    lint
  5572. ! static char ident[] = "@(#)$Id: client.c,v 1.20 1993/08/20 15:55:35 jromine Exp $";
  5573.   #endif    /* lint */
  5574.   
  5575.   #if    defined(SYS5) && defined(AUX)
  5576. ***************
  5577. *** 88,93 ****
  5578. --- 88,105 ----
  5579.   static int rcaux (), getport (), inet ();
  5580.   #endif
  5581.   
  5582. + 
  5583. + #if    defined(BIND) && !defined(h_addr)
  5584. + #define    h_addr    h_addr_list[0]
  5585. + #endif
  5586. + 
  5587. + #define    inaddr_copy(hp,sin) \
  5588. +     bcopy ((hp) -> h_addr, (char *) &((sin) -> sin_addr), (hp) -> h_length)
  5589. + 
  5590. + 
  5591. + struct hostent *gethostbystring ();
  5592. + 
  5593. + 
  5594.   static int brkany ();
  5595.   static char *getcpy (), **copyip (), **brkstring ();
  5596.   
  5597. ***************
  5598. *** 173,179 ****
  5599.           continue;
  5600.       }
  5601.   
  5602. !     if (hp = gethostbyname (*ap)) {
  5603.           switch (sd = rcaux (sp, hp, rproto, response)) {
  5604.           case NOTOK: 
  5605.           case OOPS1: 
  5606. --- 185,191 ----
  5607.           continue;
  5608.       }
  5609.   
  5610. !     if (hp = gethostbystring (*ap)) {
  5611.           switch (sd = rcaux (sp, hp, rproto, response)) {
  5612.           case NOTOK: 
  5613.           case OOPS1: 
  5614. ***************
  5615. *** 223,230 ****
  5616.   
  5617.       bzero ((char *) isock, sizeof *isock);
  5618.       isock -> sin_family = hp -> h_addrtype;
  5619.       isock -> sin_port = sp -> s_port;
  5620. -     bcopy (hp -> h_addr, (char *) &isock -> sin_addr, hp -> h_length);
  5621.   
  5622.       if (connect (sd, (struct sockaddr *) isock, sizeof *isock) == NOTOK)
  5623.       switch (errno) {
  5624. --- 235,242 ----
  5625.   
  5626.       bzero ((char *) isock, sizeof *isock);
  5627.       isock -> sin_family = hp -> h_addrtype;
  5628. +     inaddr_copy (hp, isock);
  5629.       isock -> sin_port = sp -> s_port;
  5630.   
  5631.       if (connect (sd, (struct sockaddr *) isock, sizeof *isock) == NOTOK)
  5632.       switch (errno) {
  5633. ***************
  5634. *** 339,344 ****
  5635. --- 351,405 ----
  5636.   
  5637.       bcopy (hp -> h_addr, (char *) &in, sizeof in);
  5638.       return (inet_netof (in) == net);
  5639. + }
  5640. + 
  5641. + /*   */
  5642. + 
  5643. + /* taken from ISODE's compat/internet.c */
  5644. + 
  5645. + #ifndef    DG
  5646. + u_long    inet_addr ();
  5647. + #else
  5648. + struct in_addr inet_addr ();
  5649. + #endif
  5650. + 
  5651. + 
  5652. + static char *empty = NULL;
  5653. + #ifdef    h_addr
  5654. + static char *addrs[2] = { NULL };
  5655. + #endif
  5656. + 
  5657. + struct hostent *gethostbystring (s)
  5658. + char   *s;
  5659. + {
  5660. +     register struct hostent *h;
  5661. + #ifndef    DG
  5662. +     static u_long iaddr;
  5663. + #else
  5664. +     static struct in_addr iaddr;
  5665. + #endif
  5666. +     static struct hostent   hs;
  5667. + 
  5668. +     iaddr = inet_addr (s);
  5669. + #ifndef    DG
  5670. +     if (iaddr == NOTOK && strcmp (s, "255.255.255.255"))
  5671. + #else
  5672. +     if (iaddr.s_addr == NOTOK && strcmp (s, "255.255.255.255"))
  5673. + #endif
  5674. +     return gethostbyname (s);
  5675. + 
  5676. +     h = &hs;
  5677. +     h -> h_name = s;
  5678. +     h -> h_aliases = ∅
  5679. +     h -> h_addrtype = AF_INET;
  5680. +     h -> h_length = sizeof (iaddr);
  5681. + #ifdef    h_addr
  5682. +     h -> h_addr_list = addrs;
  5683. +     bzero ((char *) addrs, sizeof addrs);
  5684. + #endif
  5685. +     h -> h_addr = (char *) &iaddr;
  5686. + 
  5687. +     return h;
  5688.   }
  5689.   
  5690.   /*   */
  5691. *** ../mh-6.8/zotnet/tws/dtimep.lex    Tue Dec 15 08:56:20 1992
  5692. --- zotnet/tws/dtimep.lex    Fri Feb 26 14:07:44 1993
  5693. ***************
  5694. *** 36,38 ****
  5695.   #ifndef    lint
  5696. ! static char ident[] = "@(#)$Id: dtimep.lex,v 2.14 1992/12/15 00:20:22 jromine Exp $";
  5697.   #endif
  5698. --- 36,38 ----
  5699.   #ifndef    lint
  5700. ! static char ident[] = "@(#)$Id: dtimep.lex,v 2.15 1993/02/26 22:07:40 jromine Exp $";
  5701.   #endif
  5702. ***************
  5703. *** 42,46 ****
  5704.   #include <sys/types.h>
  5705. ! #ifndef SYS5
  5706.   #include <sys/timeb.h>
  5707. ! #endif /* not SYS5 */
  5708.   
  5709. --- 42,46 ----
  5710.   #include <sys/types.h>
  5711. ! #if !defined(SYS5) && !defined(ZONEINFO)
  5712.   #include <sys/timeb.h>
  5713. ! #endif /* !defined(SYS5) && !defined(ZONEINFO) */
  5714.   
  5715. ***************
  5716. *** 170,173 ****
  5717.   #ifndef SYS5
  5718.       struct timeb    tb;
  5719. ! #endif /* not SYS5 */
  5720.       long tclock;
  5721. --- 170,178 ----
  5722.   #ifndef SYS5
  5723. + #ifdef ZONEINFO
  5724. +     struct tm      *tm;
  5725. +     time_t        clock;
  5726. + #else
  5727.       struct timeb    tb;
  5728. ! #endif    /* ZONEINFO */
  5729. ! #endif    /* not SYS5 */
  5730.       long tclock;
  5731. ***************
  5732. *** 180,185 ****
  5733.       /* Set default time zone. */
  5734. ! #ifndef SYS5
  5735. !     ftime( &tb );
  5736. !     tw.tw_zone = -tb.timezone;
  5737. ! #else /* SYS5 */
  5738.       tzset( );
  5739. --- 185,187 ----
  5740.       /* Set default time zone. */
  5741. ! #ifdef SYS5
  5742.       tzset( );
  5743. ***************
  5744. *** 186,188 ****
  5745.       tw.tw_zone = -(timezone / 60);
  5746. ! #endif /* SYS5 */
  5747.   
  5748. --- 188,201 ----
  5749.       tw.tw_zone = -(timezone / 60);
  5750. ! #else
  5751. ! #ifdef ZONEINFO
  5752. !     time (&clock);
  5753. !     tm = localtime(&clock);
  5754. !     tw.tw_zone = tm->tm_gmtoff / 60;
  5755. !     if (tm -> tm_isdst)            /* if DST is in effect */
  5756. !         tw.tw_zone -= 60;        /* reset to normal offset */
  5757. ! #else
  5758. !     ftime( &tb );
  5759. !     tw.tw_zone = -tb.timezone;
  5760. ! #endif    /* ZONEINFO */
  5761. ! #endif    /* SYS5 */
  5762.   
  5763. *** /dev/null    Fri Aug 20 12:27:17 1993
  5764. --- sbr/ruserpass.c    Fri Feb 26 10:58:37 1993
  5765. ***************
  5766. *** 0 ****
  5767. --- 1,216 ----
  5768. + /*
  5769. +  * Copyright (c) 1985 Regents of the University of California.
  5770. +  * All rights reserved.
  5771. +  *
  5772. +  * Redistribution and use in source and binary forms are permitted
  5773. +  * provided that the above copyright notice and this paragraph are
  5774. +  * duplicated in all such forms and that any documentation,
  5775. +  * advertising materials, and other materials related to such
  5776. +  * distribution and use acknowledge that the software was developed
  5777. +  * by the University of California, Berkeley.  The name of the
  5778. +  * University may not be used to endorse or promote products derived
  5779. +  * from this software without specific prior written permission.
  5780. +  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  5781. +  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  5782. +  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  5783. +  */
  5784. + 
  5785. + #ifndef lint
  5786. + static char sccsid[] = "@(#)ruserpass.c    5.1 (Berkeley) 3/1/89";
  5787. + #endif /* not lint */
  5788. + 
  5789. + #include <sys/types.h>
  5790. + #include <sys/stat.h>
  5791. + #include <stdio.h>
  5792. + #include <ctype.h>
  5793. + #include <pwd.h>
  5794. + #include <errno.h>
  5795. + 
  5796. + char    *malloc(), *index(), *getenv(), *getpass(), *getlogin();
  5797. + char    *strcpy();
  5798. + static    FILE *cfile;
  5799. + 
  5800. + #ifndef MAXHOSTNAMELEN
  5801. + #define MAXHOSTNAMELEN 64
  5802. + #endif
  5803. + 
  5804. + #define    DEFAULT    1
  5805. + #define    LOGIN    2
  5806. + #define    PASSWD    3
  5807. + #define    ACCOUNT 4
  5808. + #define MACDEF  5
  5809. + #define    ID    10
  5810. + #define    MACH    11
  5811. + 
  5812. + static int token();
  5813. + static char tokval[100];
  5814. + 
  5815. + static struct toktab {
  5816. +     char *tokstr;
  5817. +     int tval;
  5818. + } toktab[]= {
  5819. +     "default",    DEFAULT,
  5820. +     "login",    LOGIN,
  5821. +     "password",    PASSWD,
  5822. +     "passwd",    PASSWD,
  5823. +     "account",    ACCOUNT,
  5824. +     "machine",    MACH,
  5825. +     "macdef",    MACDEF,
  5826. +     0,        0
  5827. + };
  5828. + 
  5829. + ruserpass(host, aname, apass)
  5830. +      char *host, **aname, **apass;
  5831. + {
  5832. +     char *hdir, buf[BUFSIZ], *tmp;
  5833. +     char myname[MAXHOSTNAMELEN], *mydomain;
  5834. +     int t, i, c, usedefault = 0;
  5835. +     struct stat stb;
  5836. +     extern int errno;
  5837. + 
  5838. +     hdir = getenv("HOME");
  5839. +     if (hdir == NULL)
  5840. +         hdir = ".";
  5841. +     (void) sprintf(buf, "%s/.netrc", hdir);
  5842. +     cfile = fopen(buf, "r");
  5843. +     if (cfile == NULL) {
  5844. +         if (errno != ENOENT)
  5845. +             perror(buf);
  5846. +         goto done;
  5847. +     }
  5848. + 
  5849. +     while ((t = token())) switch(t) {
  5850. +     case DEFAULT:
  5851. +         usedefault = 1;
  5852. +         /* FALL THROUGH */
  5853. + 
  5854. +     case MACH:
  5855. +         if (!usedefault) {
  5856. +             if (token() != ID)
  5857. +                 continue;
  5858. +             /*
  5859. +              * Allow match either for user's host name.
  5860. +              */
  5861. +             if (strcasecmp(host, tokval) == 0)
  5862. +                 goto match;
  5863. +             continue;
  5864. +         }
  5865. +     match:
  5866. +         while ((t = token()) && t != MACH && t != DEFAULT) switch(t) {
  5867. + 
  5868. +         case LOGIN:
  5869. +             if (token() && *aname == 0) {
  5870. +                 *aname = malloc((unsigned) strlen(tokval) + 1);
  5871. +                 (void) strcpy(*aname, tokval);
  5872. +             }
  5873. +             break;
  5874. +         case PASSWD:
  5875. +             if (fstat(fileno(cfile), &stb) >= 0 &&
  5876. +                 (stb.st_mode & 077) != 0) {
  5877. +     fprintf(stderr, "Error - .netrc file not correct mode.\n");
  5878. +     fprintf(stderr, "Remove password or correct mode.\n");
  5879. +                 goto bad;
  5880. +             }
  5881. +             if (token() && *apass == 0) {
  5882. +                 *apass = malloc((unsigned) strlen(tokval) + 1);
  5883. +                 (void) strcpy(*apass, tokval);
  5884. +             }
  5885. +             break;
  5886. +         case ACCOUNT:
  5887. +             break;
  5888. + 
  5889. +         case MACDEF:
  5890. +             goto done_close;
  5891. +             break;
  5892. +         default:
  5893. +     fprintf(stderr, "Unknown .netrc keyword %s\n", tokval);
  5894. +             break;
  5895. +         }
  5896. +         goto done;
  5897. +     }
  5898. + 
  5899. + done_close:
  5900. +     (void) fclose(cfile);
  5901. + 
  5902. + done:
  5903. +     if (!*aname) {
  5904. +         char tmp[80];
  5905. +         char *myname;
  5906. + 
  5907. +         if ((myname = getlogin()) == NULL) {
  5908. +             struct passwd *pp;
  5909. + 
  5910. +             if ((pp = getpwuid (getuid())) != NULL)
  5911. +                 myname = pp->pw_name;
  5912. +         }
  5913. +         printf("Name (%s:%s): ", host, myname);
  5914. + 
  5915. +         (void) fgets(tmp, sizeof(tmp) - 1, stdin);
  5916. +         tmp[strlen(tmp) - 1] = '\0';
  5917. +         if (*tmp != '\0') {
  5918. +             myname = tmp;
  5919. +         }
  5920. + 
  5921. +         *aname = malloc((unsigned) strlen(myname) + 1);
  5922. +         strcpy (*aname, myname);
  5923. +     }
  5924. + 
  5925. +     if (!*apass) {
  5926. +         char prompt[256];
  5927. +         char *mypass;
  5928. + 
  5929. +         sprintf(prompt, "Password (%s:%s): ", host, *aname);
  5930. +         mypass = getpass (prompt);
  5931. +     
  5932. +         if (*mypass == '\0') {
  5933. +             mypass = *aname;
  5934. +         }
  5935. + 
  5936. +         *apass = malloc((unsigned) strlen(mypass) + 1);
  5937. +         strcpy (*apass, mypass);
  5938. +     }
  5939. + 
  5940. +     return(0);
  5941. + bad:
  5942. +     (void) fclose(cfile);
  5943. +     return(-1);
  5944. + }
  5945. + 
  5946. + static int
  5947. + token()
  5948. + {
  5949. +     char *cp;
  5950. +     int c;
  5951. +     struct toktab *t;
  5952. + 
  5953. +     if (feof(cfile))
  5954. +         return (0);
  5955. +     while ((c = getc(cfile)) != EOF &&
  5956. +         (c == '\n' || c == '\t' || c == ' ' || c == ','))
  5957. +         continue;
  5958. +     if (c == EOF)
  5959. +         return (0);
  5960. +     cp = tokval;
  5961. +     if (c == '"') {
  5962. +         while ((c = getc(cfile)) != EOF && c != '"') {
  5963. +             if (c == '\\')
  5964. +                 c = getc(cfile);
  5965. +             *cp++ = c;
  5966. +         }
  5967. +     } else {
  5968. +         *cp++ = c;
  5969. +         while ((c = getc(cfile)) != EOF
  5970. +             && c != '\n' && c != '\t' && c != ' ' && c != ',') {
  5971. +             if (c == '\\')
  5972. +                 c = getc(cfile);
  5973. +             *cp++ = c;
  5974. +         }
  5975. +     }
  5976. +     *cp = 0;
  5977. +     if (tokval[0] == 0)
  5978. +         return (0);
  5979. +     for (t = toktab; t->tokstr; t++)
  5980. +         if (!strcmp(t->tokstr, tokval))
  5981. +             return (t->tval);
  5982. +     return (ID);
  5983. + }
  5984. *** ../mh-6.8/miscellany/multi-media/READ-ME    Tue Dec 15 08:54:04 1992
  5985. --- miscellany/multi-media/READ-ME    Fri Aug 20 08:36:53 1993
  5986. ***************
  5987. *** 257 ****
  5988. --- 257,268 ----
  5989.        can fiddle with the volume controls whenever you like.
  5990. + 
  5991. + 
  5992. +                     video
  5993. + 
  5994. +      If you are running the X window system, you can use the mpeg_play
  5995. +      program to display a video/mpeg content.
  5996. + 
  5997. +     host    toe.cs.berkeley.edu
  5998. +     dir    pub/multimedia/mpeg/
  5999. +     file    mpeg-2.0.tar.Z
  6000. +     mode    binary
  6001. *** /dev/null    Fri Aug 20 12:27:17 1993
  6002. --- miscellany/multi-media/misc/mail-server.sh    Fri Aug 20 08:36:55 1993
  6003. ***************
  6004. *** 0 ****
  6005. --- 1,221 ----
  6006. + : run this script through /bin/sh
  6007. + 
  6008. + PERSON="$1" SERVER="$2" AREA="$3"
  6009. + export PERSON
  6010. + 
  6011. + if [ -z "$PERSON" -o -z "$SERVER" -o -z "$AREA" -o ! -d "$AREA" ]; then
  6012. +     exit 1
  6013. + fi
  6014. + 
  6015. + GAWK="/usr/local/bin/gawk"
  6016. + MHL="/usr/local/lib/mh/mhl -nobell"
  6017. + MHMAIL="/usr/local/bin/mhmail"
  6018. + SCAN="/usr/local/bin/scan -width 512"
  6019. + MHN="/usr/local/bin/mhn"
  6020. + SEND="/usr/local/bin/send"
  6021. + FILE="/usr/bin/file"
  6022. + VIAMAIL="/usr/local/lib/mh/viamail"
  6023. + PATH=$PATH:/etc:/bin:/usr/ucb:/usr/bin:/usr/local/bin export PATH
  6024. + if [ date +"%m/%d %T" > /dev/null 2>&1 ]; then
  6025. +     DATE="date +\"%m/%d %T\" | tr '\012' ' '"
  6026. + else
  6027. +     DATE="date | ${GAWK} '{ printf \"%s %s %s \",  \$2, \$3, \$4 }'"
  6028. + fi
  6029. + 
  6030. + P=/tmp/mail$$.prf   C=/tmp/mail$$.ctx    F=/tmp/mail$$    Z=/tmp/mail$$.log
  6031. + M=1 N=2
  6032. + trap "rm -rf $P $C $F $Z" 0 1 2 3 13 15
  6033. + 
  6034. + cd /tmp
  6035. + umask 0022
  6036. + 
  6037. + echo "Path: /tmp" > $P
  6038. + MH="$P" export MH
  6039. + 
  6040. + echo "Current-Folder: $F" > $C
  6041. + MHCONTEXT="$C" export MHCONTEXT
  6042. + 
  6043. + mkdir $F
  6044. + chmod 700 $F
  6045. + sed -e 1d > $F/$M
  6046. + 
  6047. + FROM=`$SCAN -format "%<{reply-to}%{reply-to}%|%<{from}%{from}%|%<{sender}%{sender}%|%<{return-path}%{return-path}%>%>%>%>" $M`
  6048. + 
  6049. + SUBJECT=`$SCAN -format "%{subject}" $M | tr A-Z a-z`
  6050. + 
  6051. + cd $AREA
  6052. + 
  6053. + W="`whoami`"
  6054. + STAMP="`echo $SERVER $$ $W | $GAWK '{ printf \"%-8.8s %05d (%-8s)\", $1, $2, $3; }'`"
  6055. + 
  6056. + (eval ${DATE})                     > $Z
  6057. + echo "$STAMP" BEGIN "$FROM" "$SUBJECT"        >> $Z
  6058. + cat $Z >> /var/tmp/mail-server.log
  6059. + 
  6060. + $MHL -form mhl.body < $F/$M | while read directive
  6061. + do
  6062. +     cmd="`echo "$directive" | sed -e s'%\([A-Za-z0-9-]*\).*%\1%' | tr A-Z a-z`"
  6063. +     if [ -z "$cmd" ]; then
  6064. +     continue
  6065. +     fi;
  6066. +              
  6067. +     (eval ${DATE})                 > $Z
  6068. +     echo "$STAMP" "$directive"            >> $Z
  6069. +     cat $Z >> /var/tmp/mail-server.log
  6070. + 
  6071. +     arg="`echo $directive | sed -e 's%[A-Za-z0-9-]*[     ]*\(.*\)[     ]*%\1%'`"
  6072. +     case "$cmd" in
  6073. +     path)    if [ -z "$arg" ]; then
  6074. +             (eval ${DATE})                    > $Z
  6075. +             echo "$STAMP" "path command requires argument" >> $Z
  6076. +             cat $Z >> /var/tmp/mail-server.log
  6077. + 
  6078. +             $MHMAIL "$FROM" -subject "Re: $SUBJECT ($directive)" \
  6079. +             -from "$PERSON" -cc "$PERSON" \
  6080. +             -body "path command requires argument"
  6081. +         else
  6082. +             FROM="$arg"
  6083. +             continue
  6084. +         fi
  6085. +         ;;        
  6086. + 
  6087. +     send)    for P in $arg; do
  6088. +             if echo "$P" | egrep -s "\.\./|^/"; then
  6089. +             (eval ${DATE})                     > $Z
  6090. +             echo "$STAMP" "$P: invalid package"        >> $Z
  6091. +             cat $Z >> /var/tmp/mail-server.log
  6092. + 
  6093. +             $MHMAIL "$FROM" -subject "Re: $SUBJECT ($directive)" \
  6094. +                 -from "$PERSON" -cc "$PERSON" \
  6095. +                 -body "$P: invalid package"
  6096. + 
  6097. +             break 2
  6098. +             fi
  6099. +             if [ ! -s "$P" ]; then
  6100. +             (eval ${DATE})                     > $Z
  6101. +             echo "$STAMP" "$P: no such package"        >> $Z
  6102. +             cat $Z >> /var/tmp/mail-server.log
  6103. + 
  6104. +             $MHMAIL "$FROM" -subject "Re: $SUBJECT ($directive)" \
  6105. +                 -from "$PERSON" -cc "$PERSON" \
  6106. +                 -body "$P: no such package"
  6107. + 
  6108. + 
  6109. +             break 2
  6110. +             fi
  6111. +             T="`${FILE} $P | ${GAWK} '{ print $2; }`"
  6112. +             if [ ! \( "$T" = "ascii" -o "$T" = "English" \) ]; then
  6113. +             (case $P in
  6114. +                 *.tar.Z)
  6115. +                 cat $P
  6116. +                 ;;
  6117. +                 *.tar)
  6118. +                 compress -c $P
  6119. +                 ;;
  6120. +                 *)
  6121. +                 tar cvf - $P | compress -c
  6122. +                 ;;
  6123. +             esac) | ${MHN} -viamail "$FROM" -viasubj "Re: $SUBJECT ($directive)" \
  6124. +                     -viaparm "type=tar; conversions=x-compress" \
  6125. +                     -viacmnt "extract with uncompress | tar xvpf -" \
  6126. +                     -viadelay 180 \
  6127. +                     -verbose "$PERSON" 
  6128. +             if [ $? -eq 0 ]; then
  6129. +                 true
  6130. +             else
  6131. +                 (eval ${DATE})               > $Z
  6132. +                 echo "$STAMP" "error sending viamail" >> $Z
  6133. +                 cat $Z >> /var/tmp/mail-server.log
  6134. + 
  6135. +                 $MHMAIL "$FROM" \
  6136. +                 -subject "Re: $SUBJECT ($directive)" \
  6137. +                 -from "$PERSON" -cc "$PERSON" \
  6138. +                 -body "error sending viamail"
  6139. +             fi
  6140. +             else
  6141. +             echo "\
  6142. + To: $FROM
  6143. + Subject: Re: $SUBJECT ($directive)
  6144. + From: $PERSON
  6145. + 
  6146. + #text/plain [] $P
  6147. + " > $F/$N
  6148. +             if mhdraft=$F/$N $MHN $F/$N; then
  6149. +                 if $SEND -draftf +$F -draftm $N -split 180; then
  6150. +                 true
  6151. +                 else
  6152. +                 (eval ${DATE})                 > $Z
  6153. +                 echo "$STAMP" "error sending draft"    >> $Z
  6154. +                 cat $Z >> /var/tmp/mail-server.log
  6155. + 
  6156. +                 $MHMAIL "$FROM" \
  6157. +                     -subject "Re: $SUBJECT ($directive)" \
  6158. +                     -from "$PERSON" -cc "$PERSON" \
  6159. +                     -body "error sending draft"
  6160. +                 fi
  6161. +             else
  6162. +                 (eval ${DATE})                 > $Z
  6163. +                 echo "$STAMP" "error generating draft"    >> $Z
  6164. +                 cat $Z >> /var/tmp/mail-server.log
  6165. + 
  6166. +                 $MHMAIL "$FROM" \
  6167. +                 -subject "Re: $SUBJECT ($directive)" \
  6168. +                 -from "$PERSON" -cc "$PERSON" \
  6169. +                 -body "error generating draft"
  6170. +             fi
  6171. +             fi
  6172. +         done
  6173. +         continue
  6174. +         ;;
  6175. + 
  6176. +     dir)    if echo "$arg" | egrep -s "\.\./|^/"; then
  6177. +             (eval ${DATE})                 > $Z
  6178. +             echo "$STAMP" "$arg: invalid package"    >> $Z
  6179. +             cat $Z >> /var/tmp/mail-server.log
  6180. + 
  6181. +             $MHMAIL "$FROM" -subject "Re: $SUBJECT ($directive)" \
  6182. +             -from "$PERSON" -cc "$PERSON" \
  6183. +             -body "$arg: invalid package"
  6184. +         else
  6185. +             /bin/ls -alg $arg | \
  6186. +                 $MHMAIL "$FROM" -subject "Re: $SUBJECT ($directive)" \
  6187. +                 -from "$PERSON"
  6188. +             continue
  6189. +         fi
  6190. +         ;;
  6191. + 
  6192. +     help)    if [ -s Help ]; then
  6193. +             $MHMAIL "$FROM" -subject "Re: $SUBJECT ($directive)" \
  6194. +             -from "$PERSON" < Help
  6195. +         else
  6196. +             (eval ${DATE})                     > $Z
  6197. +             echo "$STAMP" "no help available, please try later" >> $Z
  6198. +             cat $Z >> /var/tmp/mail-server.log
  6199. + 
  6200. +             $MHMAIL "$FROM" -subject "Re: $SUBJECT ($directive)" \
  6201. +             -from "$PERSON" -cc "$PERSON" \
  6202. +             -body "no help available, please try later"
  6203. +         fi
  6204. +         continue
  6205. +         ;;
  6206. + 
  6207. +     exit|end)
  6208. +         ;;
  6209. + 
  6210. +     *)    (eval ${DATE})                     > $Z
  6211. +         echo "$STAMP" "invalid directive: $directive"    >> $Z
  6212. +         cat $Z >> /var/tmp/mail-server.log
  6213. + 
  6214. +         $MHMAIL "$FROM" -subject "Re: $SUBJECT ($directive)" \
  6215. +             -from "$PERSON" -cc "$PERSON" \
  6216. +             -body "invalid directive: $directive"
  6217. +         ;;
  6218. +     esac
  6219. +     break
  6220. + done
  6221. + 
  6222. + (eval ${DATE})                     > $Z
  6223. + echo "$STAMP" DONE                >> $Z
  6224. + cat $Z >> /var/tmp/mail-server.log
  6225. + 
  6226. + exit 0
  6227. *** /dev/null    Fri Aug 20 12:27:17 1993
  6228. --- miscellany/multi-media/misc/mimeplay.sh    Fri Aug 20 08:36:56 1993
  6229. ***************
  6230. *** 0 ****
  6231. --- 1,13 ----
  6232. + #!/bin/sh -f
  6233. + 
  6234. + P=/tmp/mime$$.mhn Q=/tmp/mime$$.sh
  6235. + 
  6236. + cat > $P
  6237. + 
  6238. + echo "trap \"rm -f $P $Q\" 0 1 2 3 13 15"         > $Q
  6239. + echo "mhn -file $P -show"                >> $Q
  6240. + echo "echo -n \"Press <return> to continue... \""    >> $Q
  6241. + echo "read x"                        >> $Q
  6242. + chmod +x $Q
  6243. + 
  6244. + (xterm -e $Q >/dev/null 2>&1 &) &
  6245. *** /dev/null    Fri Aug 20 12:27:17 1993
  6246. --- miscellany/multi-media/misc/showmime.tcl    Fri Aug 20 08:36:57 1993
  6247. ***************
  6248. *** 0 ****
  6249. --- 1,108 ----
  6250. + #!/usr/local/bin/wish -f
  6251. + 
  6252. + if {$argc != 1} {
  6253. +     puts    stdout    "usage: showmime.tcl fileName"
  6254. +     exit    1
  6255. + }
  6256. + 
  6257. + set    bodyParts    ""
  6258. + set    fileName    [lindex $argv 0]
  6259. + set    maxX        [expr [winfo screenwidth .]*5/12]
  6260. + set    maxY        [expr [winfo screenheight .]*2/3]
  6261. + set    nextX        0
  6262. + set    nextY        0
  6263. + 
  6264. + 
  6265. + proc    main    {w} {
  6266. +     global    bodyParts fileName
  6267. + 
  6268. +     set        list        [exec mhn -list -file "$fileName"]
  6269. +     set        lines        [split "$list" "\n"]
  6270. + 
  6271. +     frame    $w.frame    -borderwidth 10
  6272. + 
  6273. +     pack append    $w.frame    [label $w.frame.label \
  6274. +                     -font -*courier-medium-r-normal-*-120-* \
  6275. +                     -relief sunken \
  6276. +                     -text "part  type/subtype              size description                         "] \
  6277. +                     {top fillx}
  6278. +     catch { $w.frame.label configure -background lightskyblue }
  6279. +     if {[set nline [expr [llength $lines]-1]] > 10} {
  6280. +     pack append $w.frame    [scrollbar $w.frame.yscroll \
  6281. +                     -command "$w.frame.list yview" \
  6282. +                     -orient vertical \
  6283. +                     -relief sunken] \
  6284. +                     {right filly}
  6285. +     set    y    10
  6286. +     } else {
  6287. +     set    y    $nline
  6288. +     }
  6289. +     pack append $w.frame    [listbox $w.frame.list \
  6290. +                     -font -*courier-medium-r-normal-*-120-* \
  6291. +                     -geometry 73x$y \
  6292. +                     -relief sunken] \
  6293. +                 {top expand}
  6294. +     if {$nline > 10} {
  6295. +     $w.frame.list configure    -yscroll "$w.frame.yscroll set"
  6296. +     }
  6297. +     catch { $w.frame.list configure -background lightskyblue }
  6298. + 
  6299. +     set        part        ""
  6300. +     for {set i 1; set j [llength $lines]} {$i<$j} {incr i} {
  6301. +     set    line    [string range [lindex $lines $i] 5 end]
  6302. +     if {[string index "$line" 0] != " "} {
  6303. +         set    part    [string range "$line" 0 \
  6304. +                 [expr [string first " " "$line"]-1]]
  6305. +     }
  6306. +     lappend    bodyParts    "$part"
  6307. +     if {$i == 1} {
  6308. +         set    line    "all  [string range "$line" 5 end]"
  6309. +     }
  6310. +     $w.frame.list \
  6311. +         insert    end    "$line"
  6312. +     }
  6313. + 
  6314. +     bind    $w.frame.list    <1>    {%W select from [%W nearest %y]}
  6315. +     bind    $w.frame.list    <B1-Motion>\
  6316. +                     {%W select to [%W nearest %y]}
  6317. +     bind    $w.frame.list    <Shift-1> \
  6318. +                     {%W select adjust [%W nearest %y]}
  6319. +     bind    $w.frame.list    <Shift-B1-Motion> \
  6320. +                     {%W select to [%W nearest %y]}
  6321. +     bind    $w.frame.list    <Double-1> \
  6322. +                     "ShowCommand $w.frame.list"
  6323. + 
  6324. +     frame    $w.bot        -borderwidth 1
  6325. +     pack append    $w.bot        [button $w.bot.button \
  6326. +                     -command "destroy ." \
  6327. +                     -text Dismiss] \
  6328. +                     {top padx 5 pady 5 expand}
  6329. + 
  6330. +     pack append    .        $w.frame \
  6331. +                     {top expand filly} \
  6332. +                 $w.bot \
  6333. +                     {bottom fill}
  6334. + }
  6335. + 
  6336. + proc    ShowCommand    {w} {
  6337. +     global    bodyParts fileName maxX maxY nextX nextY
  6338. + 
  6339. +     foreach    i    [$w curselection] {
  6340. +     if {[set part [lindex $bodyParts $i]] != ""} {
  6341. +         exec xterm    -geometry =80x20+$nextX+$nextY -e \
  6342. +             mhn -cache always -form mhl.null -nolist -nopause -show -part "$part" -file "$fileName" &
  6343. +     } else {
  6344. +         exec xterm    -geometry =80x20+$nextX+$nextY -e \
  6345. +             mhn -cache always -form mhl.null -nolist -nopause -show -file "$fileName" &
  6346. +     }
  6347. +     if {[set nextX [expr $nextX+90]] > $maxX} {
  6348. +         set    nextX    0
  6349. +     }
  6350. +     if {[set nextY [expr $nextY+60]] > $maxY} {
  6351. +         set    nextY    0
  6352. +     }
  6353. +     }
  6354. +     $w select clear
  6355. + }
  6356. + 
  6357. + main ""
  6358. *** ../mh-6.8/miscellany/multi-media/misc/showtimes.sh    Tue Dec 15 08:54:05 1992
  6359. --- miscellany/multi-media/misc/showtimes.sh    Fri Aug 20 08:36:57 1993
  6360. ***************
  6361. *** 70,72 ****
  6362.               -title "$O (part $A of $N$M)" -e \
  6363. !             mhn -nolist -show -part "$A" $F $M &
  6364.   
  6365. --- 70,72 ----
  6366.               -title "$O (part $A of $N$M)" -e \
  6367. !             mhn -cache always -form mhl.null -nolist -nopause -show -part "$A" $F $M &
  6368.   
  6369. *** ../mh-6.8/miscellany/multi-media/profiles/mhn_defaults    Tue Dec 15 08:54:05 1992
  6370. --- miscellany/multi-media/profiles/mhn_defaults    Fri Aug 20 08:36:58 1993
  6371. ***************
  6372. *** 1,5 ****
  6373. - mhn-compose-audio/basic: /usr/demo/SOUND/record | /usr/demo/SOUND/raw2audio -F
  6374. - mhn-compose-audio/x-next: /usr/demo/SOUND/record | /usr/openwin/bin/adpcm_enc
  6375.   mhn-charset-iso-8859-1: xterm -fn '-*-*-medium-r-normal-*-*-120-*-*-c-*-iso8859-*' -e %s
  6376.   mhn-show-application/PostScript: %plpr -Pps
  6377.   mhn-show-audio/basic: %p/usr/demo/SOUND/raw2audio 2>/dev/null | play
  6378. --- 1,6 ----
  6379.   mhn-charset-iso-8859-1: xterm -fn '-*-*-medium-r-normal-*-*-120-*-*-c-*-iso8859-*' -e %s
  6380. + mhn-compose-audio/basic: /usr/openwin/bin/audiotool %f && /usr/demo/SOUND/raw2audio -F < %f
  6381. + mhn-compose-audio/x-next: /usr/openwin/bin/audiotool %f && /usr/openwin/bin/adpcm_enc < %f
  6382.   mhn-show-application/PostScript: %plpr -Pps
  6383. + mhn-show-application/x-ivs: %pivs_replay -o '%F'
  6384.   mhn-show-audio/basic: %p/usr/demo/SOUND/raw2audio 2>/dev/null | play
  6385. ***************
  6386. *** 6,9 ****
  6387.   mhn-show-audio/x-next: %p/usr/openwin/bin/adpcm_dec | /usr/demo/SOUND/play
  6388. ! mhn-show-image: %pxv -geometry =-0+0 %f
  6389. ! mhn-show-text/richtext: %p/usr/local/lib/mh/richtext -p %F
  6390.   mhn-store-application/PostScript: %m%P.ps
  6391. --- 7,12 ----
  6392.   mhn-show-audio/x-next: %p/usr/openwin/bin/adpcm_dec | /usr/demo/SOUND/play
  6393. ! mhn-show-image: %pxv -geometry =-0+0 '%f'
  6394. ! mhn-show-text/richtext: %p/usr/local/lib/mh/richtext -p '%F'
  6395. ! mhn-show-text/x-richtext: %pwish -file /usr/local/lib/mh/richtext.tcl < '%f'
  6396. ! mhn-show-video/mpeg: %pmpeg_play '%f'
  6397.   mhn-store-application/PostScript: %m%P.ps
  6398. ***************
  6399. *** 12 ****
  6400. --- 15,17 ----
  6401.   mhn-store-text: %m%P.txt
  6402. + mhn-store-text/richtext: %m%P.rt
  6403. + mhn-store-video/mpeg: %m%P.mpg
  6404. *** ../mh-6.8/miscellany/multi-media/profiles/mtr.mh_profile    Tue Dec 15 08:54:06 1992
  6405. --- miscellany/multi-media/profiles/mtr.mh_profile    Fri Aug 20 08:36:59 1993
  6406. ***************
  6407. *** 30,33 ****
  6408.               -whatnow push
  6409. - oops:        -annotate -fcc +outbox -form repl.oops -inplace -nocc all
  6410. -             -whatnow push
  6411.   pick:        -sequence select -list
  6412. --- 30,31 ----
  6413. ***************
  6414. *** 37,39 ****
  6415.   prev:        -noheader
  6416. ! push:        -alias aliases -forward -mime -msgid -push -verbose
  6417.   pushf:        -push
  6418. --- 35,37 ----
  6419.   prev:        -noheader
  6420. ! push:        -alias aliases -forward -mime -msgid -push -split 0 -verbose
  6421.   pushf:        -push
  6422. ***************
  6423. *** 42,45 ****
  6424.   scan:        -form scan.time
  6425. ! send:        -alias aliases -mime -msgid -verbose
  6426. ! sendf:        -alias aliases -mime -msgid -verbose -draftfolder +drafts
  6427.   show:        -noheader
  6428. --- 40,44 ----
  6429.   scan:        -form scan.time
  6430. ! send:        -alias aliases -mime -msgid -split 0 -verbose
  6431. ! sendf:        -alias aliases -mime -msgid -split 0 -verbose
  6432. !             -draftfolder +drafts
  6433.   show:        -noheader
  6434. ***************
  6435. *** 48,49 ****
  6436. --- 47,50 ----
  6437.               -whatnow push
  6438. + tpcfaq:        -annotate -fcc +outbox -form repl.tpcfaq -inplace -nocc all
  6439. +             -whatnow push
  6440.   whom:        -alias aliases
  6441. ***************
  6442. *** 52,54 ****
  6443.               -whatnow push
  6444. - Split-Delay:    180
  6445.   automhnproc:    mhn
  6446. --- 53,54 ----
  6447. ***************
  6448. *** 56,58 ****
  6449.   mcomp:        -editor rapid -form comp.mhn
  6450. ! mhn:        -list -nomoreproc
  6451.   mhn-cache:    /tmp
  6452. --- 56,58 ----
  6453.   mcomp:        -editor rapid -form comp.mhn
  6454. ! mhn:        -cache always -list -nomoreproc
  6455.   mhn-cache:    /tmp
  6456. ***************
  6457. *** 59 ****
  6458. --- 59,62 ----
  6459.   mhn-storage:    /tmp
  6460. + mhn-show-application/remote-printing: cat
  6461. + mhn-store-application/remote-printing: %m%P.rp
  6462. + rpprompter: -noprepend -rapid
  6463. *** ../mh-6.8/miscellany/multi-media/profiles/mtr.mhn_profile.openwindows    Tue Dec 15 08:54:06 1992
  6464. --- miscellany/multi-media/profiles/mtr.mhn_profile.openwindows    Fri Aug 20 08:36:59 1993
  6465. ***************
  6466. *** 1 ****
  6467. ! mhn-show-application/PostScript: pageview -
  6468. --- 1,2 ----
  6469. ! mhn-show-application/PostScript: gs -q -dSAFER -- %F
  6470. ! mhn-store-message/rfc822: %m%P.msg
  6471. *** ../mh-6.8/miscellany/multi-media/profiles/mtr.mhn_profile.xterminal    Tue Dec 15 08:54:06 1992
  6472. --- miscellany/multi-media/profiles/mtr.mhn_profile.xterminal    Fri Aug 20 08:37:00 1993
  6473. ***************
  6474. *** 0 ****
  6475. --- 1,7 ----
  6476. + mhn-compose-audio/basic: 
  6477. + mhn-compose-audio/x-next: 
  6478. + mhn-show-audio/basic: 
  6479. + mhn-show-audio/x-next: 
  6480. + mhn-show-application/PostScript:
  6481. + mhn-store-audio/basic:
  6482. + mhn-store-audio/x-next:
  6483. *** /dev/null    Fri Aug 20 12:27:17 1993
  6484. --- miscellany/multi-media/richtext.tcl    Fri Aug 20 08:37:01 1993
  6485. ***************
  6486. *** 0 ****
  6487. --- 1,210 ----
  6488. + #! /usr/local/bin/wish -f
  6489. + 
  6490. + 
  6491. + proc    richtext        {{w .richtext}} {
  6492. +     catch    {destroy $w}
  6493. +     toplevel    $w
  6494. +     wm title    $w        "Richtext"
  6495. +     wm iconname    $w        "rt"
  6496. + 
  6497. +     text    $w.text        -borderwidth 2 \
  6498. +                 -height 34 \
  6499. +                 -relief raised \
  6500. +                 -setgrid true \
  6501. +                 -width 80 \
  6502. +                 -wrap word \
  6503. +                 -yscrollcommand "$w.scroll set"
  6504. +     scrollbar    $w.scroll    -command "$w.text yview" \
  6505. +                 -relief flat
  6506. +     frame    $w.bot        -borderwidth 1
  6507. +     pack append    $w.bot        [button $w.bot.button \
  6508. +                     -command "destroy $w;destroy ." \
  6509. +                     -text Dismiss] \
  6510. +                     {top padx 5 pady 5 expand}
  6511. + 
  6512. +     pack append    $w        $w.bot \
  6513. +                     {bottom fillx} \
  6514. +                 $w.scroll \
  6515. +                     {right filly} \
  6516. +                 $w.text \
  6517. +                     {expand fill}
  6518. + 
  6519. +     $w.text tag    configure    bold \
  6520. +                     -font -*-courier-bold-r-normal-*-120-*
  6521. +     $w.text tag configure    italic \
  6522. +                     -font -*-courier-medium-o-normal-*-120-*
  6523. +     $w.text tag configure    bolditalic \
  6524. +                     -font -*-courier-bold-o-normal-*-120-*
  6525. +     $w.text tag configure    fixed \
  6526. +                     -font -*-courier-medium-r-normal-*-120-*
  6527. + 
  6528. +     $w.text tag configure    bigbold \
  6529. +                     -font -*-courier-bold-r-normal-*-140-*
  6530. +     $w.text tag configure    bigitalic \
  6531. +                     -font -*-courier-medium-o-normal-*-140-*
  6532. +     $w.text tag configure    bigbolditalic \
  6533. +                     -font -*-courier-bold-o-normal-*-140-*
  6534. +     $w.text tag configure    bigfixed \
  6535. +                     -font -*-courier-medium-r-normal-*-140-*
  6536. + 
  6537. +     $w.text tag configure    smallbold \
  6538. +                     -font -*-courier-bold-r-normal-*-100-*
  6539. +     $w.text tag configure    smallitalic \
  6540. +                     -font -*-courier-medium-o-normal-*-100-*
  6541. +     $w.text tag configure    smallbolditalic \
  6542. +                     -font -*-courier-bold-o-normal-*-100-*
  6543. +     $w.text tag configure    smallfixed \
  6544. +                     -font -*-courier-medium-r-normal-*-100-*
  6545. + 
  6546. +     $w.text tag configure    underline \
  6547. +                     -underline on
  6548. + 
  6549. + 
  6550. +     set        env(bold)    0
  6551. +     set        env(italic)    0
  6552. +     set        env(fixed)    0
  6553. +     set        env(smaller)    0
  6554. +     set        env(bigger)    0
  6555. +     set        env(underline)    0
  6556. + 
  6557. +     set        env(center)    0
  6558. +     set        env(flushleft)    0
  6559. +     set        env(flushright)    0
  6560. +     set        env(indent)    0
  6561. +     set        env(indentright) 0
  6562. +     set        env(outdent)    0
  6563. +     set        env(outdentright) 0
  6564. +     set        env(samepage)    0
  6565. +     set        env(superscript) 0
  6566. +     set        env(subscript)    0
  6567. +     set        env(heading)    0
  6568. +     set        env(footing)    0
  6569. +     set        env(excerpt)    0
  6570. +     set        env(paragraph)    0
  6571. +     set        env(signature)    0
  6572. + 
  6573. +     set        intoken        0
  6574. +     set        token        ""
  6575. + 
  6576. +     set        incomment    0
  6577. + 
  6578. +     set        output        ""
  6579. +     set        lasto        " "
  6580. + 
  6581. + 
  6582. +     while {[set len [gets stdin buffer]] > -1} {
  6583. +     if {(!$intoken) && ($lasto != " ")} {
  6584. +         append    output    [set lasto " "]
  6585. +     }
  6586. + 
  6587. +     for {set i 0} {$i < $len} {incr i} {
  6588. +         set    c        [string index $buffer $i]
  6589. +         if {$intoken} {
  6590. +         if {([string length $token] == 0) && ($c == "/")} {
  6591. +             set    intoken    -1
  6592. +             continue
  6593. +         }
  6594. +         if {$c != ">"} {
  6595. +             append    token    $c
  6596. +             continue
  6597. +         }
  6598. + 
  6599. +         set    command    [string tolower $token]
  6600. +         set    pos    $intoken
  6601. + 
  6602. +         set    intoken    0
  6603. +         set    token    ""
  6604. + 
  6605. +         if {$command == "comment"} {
  6606. +             if {[incr incomment $pos] < 0} {
  6607. +             set    incomment    0
  6608. +             }
  6609. +             if {$incomment > 0} {    continue }
  6610. +         }
  6611. + 
  6612. +         if {$command == "lt"} {
  6613. +             append    output    [set lasto "<"]
  6614. +             continue
  6615. +         }
  6616. +         if {($command == "nl") || ($command == "np")} {
  6617. +             append    output    "\n"
  6618. +             set        lasto    " "
  6619. +             continue
  6620. +         }
  6621. + 
  6622. +         if {[string length $output]} {
  6623. +             set    size    [expr $env(bigger)-$env(smaller)]
  6624. +             if {$size > 0} {
  6625. +                 set    font    "big"
  6626. +             } else {
  6627. +                 if {$size < 0} {
  6628. +                 set    font    "small"
  6629. +                 } else {
  6630. +                 set    font    ""
  6631. +                 }
  6632. +             }
  6633. +             if {$env(fixed) > 0} {
  6634. +                 append    font    "fixed"
  6635. +             } else {
  6636. +                 if {$env(bold) > 0} {
  6637. +                 append    font    "bold"
  6638. +                 }
  6639. +                 if {$env(italic) > 0} {
  6640. +                 append    font    "italic"
  6641. +                 }
  6642. +             }
  6643. +             set    tags    [list $font]
  6644. +             if {$env(underline) > 0} {
  6645. +                 append    tags    underline
  6646. +             }
  6647. + 
  6648. +             insertWithTags    $w.text $output $tags
  6649. + 
  6650. +             set    output        ""
  6651. +             set    lasto        " "
  6652. +         }
  6653. + 
  6654. +         catch    {
  6655. +             if {[incr env($command) $pos] < 0} {
  6656. +             set $env($command) 0
  6657. +             }
  6658. +         }
  6659. +         continue
  6660. +         }
  6661. + 
  6662. +         if {$c != "<"} {
  6663. +         if {!$incomment} {
  6664. +             append    output    [set lasto $c]
  6665. +         }
  6666. +         continue
  6667. +         }
  6668. + 
  6669. +         set    intoken        1
  6670. +     }
  6671. +     }
  6672. + 
  6673. +     insertWithTags $w.text    $output
  6674. + }
  6675. + 
  6676. + # The procedure below inserts text into a given text widget and
  6677. + # applies one or more tags to that text.  The arguments are:
  6678. + #
  6679. + # w        Window in which to insert
  6680. + # text        Text to insert (it's inserted at the "insert" mark)
  6681. + # args        One or more tags to apply to text.  If this is empty
  6682. + #        then all tags are removed from the text.
  6683. + 
  6684. + proc insertWithTags {w text args} {
  6685. +     set start [$w index insert]
  6686. +     $w insert insert $text
  6687. +     foreach tag [$w tag names $start] {
  6688. +     $w tag remove $tag $start insert
  6689. +     }
  6690. +     foreach i $args {
  6691. +     $w tag add $i $start insert
  6692. +     }
  6693. + }
  6694. + 
  6695. + 
  6696. + richtext
  6697. + wm withdraw .
  6698.